в инспекторе у SaveDialog1 присвой
DefaultExt = "
txt" (без кавычек, просто
txt), ну и код изменить на:
Код:
procedure TForm2.Button8Click(Sender: TObject);
begin
if not SaveDialog1.Execute then
Exit
else
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;