Probleme bei schreiben in Datei

[gine]

Hallo!

Habe folgendes problem: Ich möchte Daten mit Hilfe des AnsyncPro über die ser. schittstelle einlesen. Hierzu benutze ich folgende Prozedur:

Code:

procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);

var I : Word;
    C: char;
    daten : string ;
    f: TextFile;
begin
  daten := '';
 AssignFile (f, 'C:\Wetterdaten.txt');
 if not FileExists('C:\Wetterdaten.txt')  then
   ReWrite(f) else
  Reset(f);
  for I := 1 to Count do
    begin
        C := ApdComPort1.GetChar;
        daten := daten + C;
       sleep(15);
    end;
  // Daten in Memo schreiben
  Memo1.SelText:= daten;

//Daten in Datei schreiben
  WriteLn(f,daten);
  CloseFile(f);
end;

Führe ich mein Progeramm aus...bekomme ich eine Fehlermeldung ERROR 105...heißt wohl "Datei nicht für Ausgabe geöffnet". WriteLn(f,Daten) ist markiert.

Habe ich nur Rewrite da stehen. Klappt es...es hapert wohl irgendwie am Reset...aber wieso?
Und wir könnte ich den Fehler beheben?
Die befehle an sich müssten stimmen...hab sie schon mehrmals kontrolliert.

Kann mir jemand helfen?

Und weiß jemand wie ich die Procedur TriggerAvail in einer Timer Procedure aufrufen kann?

danke schon mal