[NumLock]

Код:

var
  f: textfile;
begin
  AssignFile(f, 'Project1.txt');
  Rewrite(f);
  Write(f, Memo1.Text);
  CloseFile(f);
end;

Код:

begin
  Memo1.Lines.SaveToFile('Project1.txt');
end;