в label1 вывести текстовый файл

[lanus]

Здравствуйте, сам вопрос как в label1 вывести текстовый файл (Delphi)
например 1.txt который находится рядом с прогой
Вот пытался сделать

procedure TForm1.Button1Click(Sender: TObject);
var
f :textfile;
begin
Assignfile(f,'1.txt');
if fileEXists('1.txt') then
reset(f);
label1.Caption:=read(f);
closefile(f);

end;

выдает ошибку.

Помогите написать работающий код!

[profi]

Не сильно понятно зачем такое нужно, ну вот:

procedure TForm1.FormCreate(Sender: TObject);
var
f :textfile;
str:string;
begin
Assignfile(f,'C:\temp.txt');
if fileEXists('C:\temp.txt') then
reset(f);
read(f, str);
label1.Caption:=str;
closefile(f);
end;

[lanus]

Спс все заработало