как поместить содержимое файла в переменную?
вот как я делал

procedure TForm4.FormCreate(Sender: TObject);
Type
 TF=record
 TF:textfile;
 end;
var
F:File of TF;
im:TF;
im1:string;
begin

if fileexists('d:\'+Form1.Edit1.Text+'\'+'profil.txt') then
begin
AssignFile(F, 'd:\'+Form1.Edit1.Text+'\'+'profil.txt');
Read(F, im);
im1:=intToStr(im);
Label10.Caption:=im1;
end;
end;

Оно не работает(

Решение:

Чтобы поместить содержимое файла в переменную, тебе нужна переменная, чей размер в памяти = размеру файла.

Это может быть:
1. Нетипизированный указатель (Pointer).
2. Байтовый динамический массив.
3. Строка из AnsiChar (AnsiString или PAnsiChar).

Итого, чтобы перенести содержимое файла в переменную, нужно:
1. Объявить переменную одного из вышеуказанного типа (на выбор).
2. Открыть файл для чтения.
3. Установить размер переменной = размеру файла в байтах.
4. Прочитать файл в переменную.
5. Закрыть файл.

procedure TForm4.FormCreate(Sender: TObject);
var
f:textfile;
im:string;
begin
if fileexists('d:\'+Form1.Edit1.Text+'\'+'profil.txt') then
begin
AssignFile(F, 'd:\'+Form1.Edit1.Text+'\'+'profil.txt');
reset(f);
Read(F, im);
Label10.Caption:=im;
closefile(f);
end;
end;