как сохранить строчки в TXT файл

[Ярослав]

Как сохранить строчки в TXT файл
Пример: При нажатие кнопки из
edit1 сохранить в первой строке TXT документа
edit2 сохранить во второй строке TXT документа
если строчка не пуста то заменить её

[SERG1980]

implementation

{$R *.dfm}
 var f:textfile;
procedure TForm2.Button1Click(Sender: TObject);
begin
 AssignFile(f,'d:\textfile.txt');
 Rewrite(f); 
 writeln(f,'Строка1');
 CloseFile(f);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
 AssignFile(f,'d:\textfile.txt');
 Append(f); // 
 writeln(f,'Строка2');
 CloseFile(f);
end;

[Ярослав]

Спасибо SERG Всё получилось