WinINet og POST

Ey

Jeg sider og leger med Dephi og WinINet API. Overordnet prøver jeg at lave en mindre crawler. Jeg er dog stødt ind i et problem:

For at "komme videre" på nogen sider skal jeg sende POST data. Hvordan gør jeg det? Jeg har prøvet lidt af hvert men det ser ikke ud til at fungere.

I øjeblikket ser koden således ud:

---------
function TCrawlForm.DownloadFile(DownloadFrom, SaveTo, sPost : string):boolean;
const
  BufferSize = 1024;
var
  hSession, hURL, hConnection: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
begin
  Result := False;
  hSession := InternetOpen(PChar(ExtractFileName(Application.ExeName)), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if sPost<>'' then
    hConnection := InternetConnect(hSession, PChar('tagdataserver'), INTERNET_DEFAULT_HTTP_PORT, nil, PChar('HTTP/1.0'), INTERNET_SERVICE_HTTP, 0, 0);
  try
    if sPost<>'' then
      begin
        hURL := HttpOpenRequest(hConnection,PChar('POST'),PChar(DownloadFrom),PChar('HTTP/1.1'),nil,0,0,0);
        HttpSendRequest(hURL, nil, 0, Addr(sPost), Length(sPost));
      end
    else
      hURL := InternetOpenURL(hSession, PChar(DownloadFrom), nil,0,0,0);
     
    try
      AssignFile(f, SaveTo);
      Rewrite(f,1);
      repeat
        InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
        BlockWrite(f, Buffer, BufferLen);
      until BufferLen = 0;
        CloseFile(f);
      Result:=True;
    finally
      InternetCloseHandle(hURL);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;
------

Meningen med ovenstående funktion er at sende POST dataen i variablen sPost til serveren (DownloadFrom) og derefter gemme HTML siden i SaveTo.

Alt fungere som det skal men kun når sPost = ''.
Altså er der noget galt med min håndtering af InternetConnect(), HttpOpenRequest() og/eller HttpSendRequest().

Nogen der kan hjælpe?