URL checken

[Privateer3000]

Hallöchen,
ich erstelle mal zu diesem Thema einen neuen Thread.
Und zwar geht es um das Beispiel von Marabu:

Code:

function Tmain.urlcheck(sUrl: String; bAllowRedirects: Boolean = false): Integer;
begin
   with IdHTTP1 do
   try
     try
       HandleRedirects := bAllowRedirects;
       Head(sUrl);
       Result := Response.ResponseCode;
     finally
       Free;
     end;
   except
       Result := GetLastError;
   end;
end;

Wenn nun die Funktion mit

Code:

urlcheck('http://www.delphipraxis.net', true) = 200

aufgerufen wird, funktioniert das.
Aber nur einmal. Lässt man einen Timer regelmäßig diese Funktion aufrufen
gibt es eine Exception beim zweiten Mal.

Warum passiert das?