type
SaveDialog1: TSaveDialog;
...
SaveDialog1.Title := 'Save As...';
SaveDialog1.Filter := '*.txt';
SaveDialog1.FileName := 'somefile.txt';
SaveDialog1.Execute;