Procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := Edit1.Text;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
f: textFile;
begin
AssignFile(f, 'C:\Users\HRAshton\Desktop\out.txt');
rewrite(f);
Write(f, Memo1.Text);
closeFile(f);
end;
Воть, приклейте эти процедуры на кнопки:)