I/O Error 103

[bonanza]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);

begin
 timer1.Enabled := true;
timer1.interval := 30000;

end;


procedure TForm1.Ontimer(Sender: TObject);
var
i,j: integer;
ergebnis:boolean;
begin

ergebnis := true;
DeleteFile('C:\text.txt') ; //<-- Er schafft es nicht beim 2. durchlauf die datei zulöschen.
AssignFile (Text_Datei, 'C:\text.txt');
rewrite(text_datei);
Write(Text_Datei, IdHTTP.Get('http://XXX/text.txt') );
reset(text_datei);
CloseFile(Text_Datei);
reset(text_datei);

Application.ProcessMessages;

list1 := TStringlist.Create;
list1.LoadFromFile('C:\text.txt');
i := list1.Count;
AssignFile(bla,'C:\text.txt');
Reset(bla);
for i := 0 to i - 1 do begin
readln(bla,s);
memo1.Lines.Add(s);
if (pos('Peter',s)>0) then begin
  memo1.Lines.Add('Hubert');
  ergebnis := false;
  end;
end;
CloseFile(bla);    //ab hier hab ich so ziemlich alles ausprobiert ^^
list1.Free;
MyTextFile.free  ;

end;