Hast du es denn mal ohne das Free mit dem ursprünglichen Code versucht?
Delphi-Quellcode:
function Tmain.urlcheck(sUrl:
String; bAllowRedirects: Boolean = false): Integer;
begin
try
IdHTTP1.HandleRedirects := bAllowRedirects;
IdHTTP1.Head(sUrl);
Result := IdHTTP1.Response.ResponseCode;
except
Result := GetLastError;
// was soll das bringen? bei Indy dürfte GetLastError nichts über den Fehler aussagen...
end;
end;