Функционирование Dialog'ов

procedure TForm1.Button3Click(Sender: TObject);
var f: TextFile;
i, k: Integer;
s1:string;
begin
SaveDialog1.FileName:='file';
SaveDialog1.DefaultExt:='txt';
if SaveDialog1.Execute then //выполняется диалог 'Сохранить как'
  begin //введено имя файла
    AssignFile(f,SaveDialog1.FileName);
    Rewrite(f); // создаем файл
    Append(f); // открываем файл
    s1:=Copy(LabelSG1.Caption,0,5)+'.'+#9+Copy(LabelSG2.Caption,0,5)+'.'+#9+Copy(LabelSG3.Caption,0,5)+'.'+#9+Copy(LabelSG4.Caption,0,5)+'.'+#9+Copy(LabelSG5.Caption,0,5)+'.'+#9+Copy(LabelSG6.Caption,0,5)+'.'+#9+Copy(LabelSG7.Caption,0,5)+'.'+#9+Copy(LabelSG8.Caption,0,5)+'.'+#9+Copy(LabelSG9.Caption,0,5)+'.'+#9+Copy(LabelSG10.Caption,0,5)+'.'+#9+#9+Label15.Caption+'.'+#9+Copy(Label5.Caption,0,5)+'.'+#9+Copy(Label6.Caption,0,5)+'.';
    Writeln(f,s1); // пишем значения ячеек
        s1:='';
    for k:=0 to StringGrid1.ColCount-1 do
      begin
        for i:=0 to StringGrid1.RowCount-1 do
          begin
            s1:= s1 + StringGrid1.Cells[k,i]+#9;
          end;
        Writeln(f,s1); // пишем значения ячеек
        s1:='';
      end;
    CloseFile(f);
  end;
end;

var f: TextFile;
begin
dlgSave1.FileName:='file';
dlgSave1.DefaultExt:='txt';
if dlgSave1.Execute then //выполняется диалог 'Сохранить как'
  begin //введено имя файла
    AssignFile(f,dlgSave1.FileName);
    Rewrite(f); // создаем файл
    Writeln(f,'Тестовая строка'); // записываем в него строку
   CloseFile(f);
end;
end;