var
   msg:shortstring='http://forum.antichat.ru/antichat/pic/logo.gif';

function ThreadCall(p:pointer):dword;stdcall; //API call stdcall
begin
GetInetPageSRCasThread(string(p));
end;

begin
    hT := CreateThread(nil,0, @ThreadCall, @msg, 0, ThID);
    while(WAIT_OBJECT_0<>WaitForSingleObject(hT,100)) do
    application.ProcessMessages;