Wininet проверкa отправки

[Dan4ik95]

Здравствуйте!
Я с Wininet незнаком помогите разобратся.
Нашел такой код я его немного изменил

function GetPostPage(Page: PChar; Post: PChar; Server: PChar):Boolean;
var
 hInet: HINTERNET;
 hServer: HINTERNET;
 hPage: HINTERNET;
 flag: Cardinal;
 Hdr: PChar;
begin

 hInet := InternetOpen('Some browser..', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 if hInet = nil then
   exit;
 hServer := InternetConnect(hInet, Server, INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);
 if hServer <> nil then
  begin
   flag := INTERNET_FLAG_RELOAD;
   if Post <> nil then
    hPage := HttpOpenRequest(hServer, 'POST', Page, HTTP_VERSION, nil, nil, flag, 0)
   else
    hPage := HttpOpenRequest(hServer, 'GET', Page, HTTP_VERSION, nil, nil, flag, 0);
   if hPage <> nil then
    begin
     if Post <> nil then
      begin
      Hdr := 'Content-Type: application/x-www-form-urlencoded';
       if HttpSendRequest(hPage, Hdr, length(Hdr), Post, length(Post)) then

      end
     else
      if HttpSendRequest(hPage, nil, 0, nil, 0) then
      HttpEndRequest(hPage, nil, 0, 0);
     InternetCloseHandle(hPage);
    end; 
   InternetCloseHandle(hServer);
  end;
 InternetCloseHandle(hInet);
end;
[/PHP]
Как мне прикрутить проверку отправки чтобы можно было так работать вот так:
[PHP]if GetPostPage('/inbox.php',PChar(post),'Localhost') then
Showmessage('Отправлено')
else
Showmessage('Неудача')
end;

[Stilet]

И? В чем сложности?

[Dan4ik95]

Сообщение от Stilet

И? В чем сложности?

Все решил =) сорри тупанул )