Код:
procedure TForm1.Button1Click(Sender: TObject);
var
s:TStringList;
begin
if FileExists('C:\123.txt') then
begin
s:=TStringLIst.Create;
s.LoadFromFile('C:\123.txt');
Edit1.Text:=s.Strings[0];
end
else
begin
ShowMessage('nea');
end;
end;
В любом случае показывает собщение nea. Хотя файл 123.тхт существует.