[shaman]

попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Text:='твой текст';
Memo1.Lines.SaveToFile('abc.txt');
end;