Текстовые Файлы Опции

[Dead.MorozZ]

Помогите присвоить метке значение Текстового Файла. Мой код присваивает только первую строку из файла, в чем ошибка???

Код

var
  F: TextFile;
  S: String;
begin
  AssignFile(F, 'Text.txt');
  Reset(F);
  Read(F, S);
  Label1.Caption := S;
end;

[volvo]

А ты что, в Caption все содержимое файла затолкать хочешь?
Тогда читай так:

AssignFile(F, 'Text.txt');
Reset(F);
st := '';
While not eof(f) do begin
  read(f, s); st := st + s + #13#10;
end;
Label1.Caption := st;

Если поместится, конечно. Все-таки строка ограничена 255 символами...