Ты используешь SaveDIalog?
Если да то,вот код
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
end.
и ставь в настройки СавеДиалога В Filter
В Filte Name .dat а в Filter /.dat
В Filte Name .doc а в Filter /.doc
В Filte Name .txt а в Filter /.txt
Если я правильно понял,то пашет.=)