[scroyler]

Ты используешь 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
Если я правильно понял,то пашет.=)