I/O Error 103

[bonanza]

Delphi-Quellcode:

{...}
var 
  Form1: TForm1;
  MyTextFile: TStringList;
  text_Datei : System.Text;
  s:String;
  bla:textfile;
  list1:TStringlist;

//...
procedure TForm1.FormCreate(Sender: TObject);
begin
 timer1.Enabled := true;
timer1.interval := 30000;
end;


procedure TForm1.Ontimer(Sender: TObject);
begin
AssignFile (Text_Datei, 'C:\test.txt');
rewrite(text_datei);
Write(Text_Datei, IdHTTP.Get('http:/-entfernt-/test.txt') );
CloseFile(Text_Datei);
//...
end;
//....