wie schreibe ich ein textfile in ein unterverzeichnis

[Willi1960]

hallo,

ich habe ein problem ich möchte ein textfile in ein unterverzeichnis schreiben aber es will nicht funktionieren. folgenden quellcode habe ich erstellt

Delphi-Quellcode:

procedure TForm3.Button2Click(Sender: TObject);
var
   f: TextFile;
   i: integer;
begin
  {$I-}
  mkdir('c:\jowisoft');
  mkdir('c:\jowisoft\kasse');
  mkdir('c:\jowisoft\kasse\kassendaten');
  {$i+}
  if ioresult=0 then i:=i+1;   {dient einfach nur zur abfrage von ioresult}
  AssignFile (f,'c:\jowisoft\kasse\kassendaten\bondaten.txt');
  {$I-}
  Rewrite (f);
  {$I+}
  If IOResult = 0 then
  begin
    Writeln (f, 'Test');
    closefile(f);
  end;
end;

wer kann mir helfen


[edit=MrSpock]Delphi Ende-Tag eingefügt. Mfg, MrSpock[/edit]