function GetStr(URL: String): PChar;
var hMyResult: HRESULT;
ppStream: IStream;
lpBuffer: Pointer;
dwRead: Integer;
begin
result:='';
hMyResult:=URLOpenBlockingStream(nil, PChar(URL), ppStream, 0, nil);
if hMyResult<>S_OK then exit;
lpBuffer:=AllocMem(1024);
ppStream.Read(lpBuffer, 32, @dwread);
result:=lpBuffer;
end;