Сохранить как... и Печать ИЗ DBGrid

if (SaveDialog1.Execute) then
          .....(незнаю что написать)......SaveToFile(SaveDialog1.FileName);

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  sFile: TStrings;
  BM: TBookMark;
  DS: TDataSet;
  s: string;
  NFile: TFileName;
begin
  with TSaveDialog.Create(Application) do
    try
      Filter := 'Text files (*.txt)|*.TXT';
      InitialDir := ExtractFilePath(Application.ExeName);
      if Execute then NFile := FileName;
    finally
      Free;
    end;
  if NFile>'' then   
    begin
     sFile := TStringList.Create;
     DS := DBGrid1.DataSource.DataSet;
     Screen.Cursor := crHourGlass;  // Курсор - в "часики" на время выгрузки
     DS.DisbaleControls;          // "Повесить" датасет для предотвращения  моргания экрана 
     BM   := DS.GetBookMark;  // Запомнить текущую строку датасета
     DS.First;
     while not DS.Eof do
       begin
        s := '';
        for i := 0 to DS.FieldCount-1 do
          if DS.Fields[0].IsNull then
             s := s+'<NULL>'+'/'
          else
             s := s+DS.Fields[0].AsString+'/';
        Delete(s,Length(s),1);   // Убрать лишний хвостовой разделитель
        sFile.Add(s);
        DS.Next;
       end;
     sFile.SaveToFile(NFile);
     DS.GoToBookMark(BM);     // Вернуться к исходной записи датасета (строке грида)
     DS.FreeBookMark(BM);
     DS.EnableControls;           // "Оживить" датасет
     Screen.Cursor := crDefault // Курсор - в первоночальный вид
    end;
end;