Так вы ж сами все написали:
Код:
procedure TForm1.Button1Click(Sender: TObject);
//var f:textfile; эт вообще не надо:)
var FileName:string;
begin
//if SaveDialog1.Execute then это тогда тоже
FileName:='E:\test.pas';
Memo1.Lines.SaveToFile(FileName);
end;