kann eintrag aus stringgrid nicht in txt-datei speichern

[Molzer]

Hallo!!

Probier schon so lange herrum, kann mir wer helfen?
Fehler von Deppugger-Exeption:
..eine Exception der Klasse EInOutError mit der Meldung 'E/A-Fehler 32' aufgetreten.

Da ich Anfänger bin kann natürlich mehr falsch sein ,
bitte das zu entschuldigen... danke (anbei ein bild

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TDB=class
  name,titel:string;
  end;



type
  TForm2 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    s: TStringGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
  DB:TDB;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
var f:textfile;
i:integer;
procedure TForm2.FormCreate(Sender: TObject);
begin
DB:=TDB.Create;
s.Cells[0,0]:='aa';
s.Cells[0,1]:='1';
s.Cells[0,2]:='2';
s.Cells[1,0]:='Titel';
s.Cells[2,0]:='Name'  ;

end;
procedure TForm2.Button1Click(Sender: TObject);
begin
if opendialog1.execute then
begin
  assignfile (f,opendialog1.FileName);
  reset(f);
  rewrite(f);
  begin
        with DB do
        begin
          WriteLn(F,Titel+'|',Name);

end;
end;
end;
end;
end.