procedure TForm1.Button1Click(Sender: TObject); var F : TextFile; S, S2 : String; begin AssignFile(F, 'bla.txt'); Append(F); S := Edit1.Text; S2 := Edit2.Text; WriteLn(F,S+S2); CloseFile(F); end;