program Saveit;

uses Forms, Dialogs, SysUtils;
program Saveit;

uses Forms, Dialogs, SysUtils;

{$R *.RES}

var
  SaveDlg : TSaveDialog;

begin
  SaveDlg := TSaveDialog.Create(Application);
  with SaveDlg do
  begin
    InitialDir := ExtractFilePath(ParamStr(0));
    FileName   := ParamStr(1);
    Title   := '[' + ParamStr(1) + ']-Save File As';
    Filter  := 'Valid Files|*.DBF;*.CSV;*.WKS;*.XLS';
    Options := [ofFileMustExist, ofOverwritePrompt, ofPathMustExist];
    Execute;
    Free;
  end;
end.