Как передать инфу из txt файла в едит?

procedure TForm1.Button1Click(Sender: TObject); 
var
f: TextFile; // файл
fName: String[80]; // имя файла
begin
fName := Edit1.Text;
AssignFile(f, fName);
Reset(f); // открыть для чтения
readln(f, Edit2.text); прочитать в edit
CloseFile(f); // закрыть файл
end;

while not EOF(f) do begin
 
 
readln(f, buf); // прочитать строку из файла 
 
Memo1.Lines.Add(buf); // добавить строку в поле Memo1 
 
end;

var
  Form1: TForm1;
  f: TextFile;
  fName: String[80];
  a: string;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
fName:=Edit1.Text;
AssignFile(f, fName);
reset(f);
readln(f,a);
CloseFile(f);
Edit2.Text:=a;
end;

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
    s:string;
begin
assignfile(f,'C:\mail.txt');
reset(f);
readln(f,s);//если только 1 строка
Edit1.Text:=s;
closefile(f);
end;