Uses
......blablabla....., WININET;


const
Server_Addr: PChar= 'LocalHost';
ScriptName: PChar= 'engine.php';
hdrs: Pchar= 'Content-Type: application/x-www-form-urlencoded';

var
  hInet, hConnect, hRequest: hInternet;
  pRequest: PChar;
  sRequest: string;

hInet := InternetOpen('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; ru)', INTERNET_OPEN_TYPE_PROXY, 'http=http://localhost:8080', nil, 0);
hConnect := InternetConnect(hInet, Server_Addr, INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
hRequest := HttpOpenRequest(hConnect, 'POST', ScriptName, nil, nil, nil, 0, 1);
sRequest := 'Body=OK';
pRequest := PChar(sRequest);
HttpSendRequest(hRequest, hdrs, StrLen(hdrs), pRequest, StrLen(pRequest));
InternetCloseHandle(hRequest);
InternetCloseHandle(hConnect);
InternetCloseHandle(hInet);