[T-dayne]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var f: textfile;
begin
AssignFile(f, edit1.text+'.txt');   //открываем файл для записи
ReWrite(f);
WriteLn(f, edit2.text);    //пишем строчку в него
CloseFile(f);            //закрываем
end;