Probleme mit StringGrid speichern

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);
var
  s: TStream;
//  fn: TFileName;
begin
//  fn := ChangeFileExt(ParamStr(0), '.txt');
//  s := TFileStream.Create(fn, fmCreate);

  savedialog1.Title := 'Speichern sie ihre Tabelle in einer Textdatei.';
  if savedialog1.execute then
    begin
      s := TFileStream.Create(savedialog1.Filename, fmCreate);
      try
        SaveGrid(StringGrid1, s);
      finally
        s.Free;
      end;
    end;
end;