ich würd den Twebbrowser nehmen und den letzten teil nach einer 1 oder 0 überprüfen
//Edit :
Delphi-Quellcode:
webbrowser1.Navigate('http://web.icq.com/whitepages/online?icq='+edit1.text+'&img=5');
while webbrowser1.Busy do begin
application.ProcessMessages;
Label1.Caption := 'Status: Lädt...'
end;
if webbrowser1.LocationURL ='http://status.icq.com/5/online1.gif'
then Label1.Caption := 'Status: Online'
else Label1.Caption := 'Status: Offline';