[Winny]

Мне удобней работать с TStringList, чем с TextFile:

Код:

var
S:TStringList;
begin
S:=TStringList.Create;
S.LoadFromFile('1.txt');
if S.Text='' then begin
ShowMessage('Текстовый файл пуст!');
end;
S.Free;
end;