Форум АНТИЧАТ - [wininet] помогите неразумному(((

при передачи файла на сервер, программа виснет! Код процедуры:
Код:
function UploadFileToServer(aurl: string; FileName: string): boolean;

var

  hSession       : hInternet;

  hConnect       : hInternet;

  hRequest       : hInternet;

  hFile          : THandle;

  RequestFlags   : DWORD;

  Sum            : DWORD;

  dwBytesRead    : DWORD;

  dwBytesWritten : DWORD;

  pBuffer        : DWORD;

  bRead, bRet    : boolean;

  BufferIn       : INTERNET_BUFFERS;

  _post, Headers,

  boundary       : string;

begin

  boundary := '--------' + FormatDateTime('mmddyyhhnnsszzz ', Now); { not localize }

 _post := 'note=vk&font1=decor&font2=20&orient=h&size1=x&size2=1024x768&rotate=00&flip=0&mini=300x225&opt3[]=zoom&email=';



  headers := 'Content-Type: multipart/form-data; boundary=' + boundary;



  pBuffer := 1024;

  hSession := InternetOpen('Delphi/7.0', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);



  hConnect := InternetConnect(hSession, PChar(GetHost(AUrl)), 80, nil, nil,

                              INTERNET_SERVICE_HTTP, 0, 0);



  RequestFlags := INTERNET_FLAG_NO_CACHE_WRITE or  INTERNET_FLAG_KEEP_CONNECTION;



  hRequest := HttpOpenRequest(hConnect, 'POST', '/index.php', 'HTTP/1.1', nil, nil,

                              RequestFlags, 0);



  hFile := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);



  ZeroMemory(@BufferIn, SizeOf(BufferIn));

  BufferIn.dwStructSize := SizeOf(INTERNET_BUFFERS);

  BufferIn.dwBufferTotal := GetFileSize(hFile, nil);

  BufferIn.lpcszHeader := PChar(Headers);

  BufferIn.dwHeadersLength := Length(Headers);



  HttpSendRequestEx(hRequest, @BufferIn, nil, HSR_INITIATE, 0);



  Sum := 0;

  bRead := True;

  bRet := True;



  repeat

    bRead := ReadFile(hFile, pBuffer, SizeOf(pBuffer), dwBytesRead, nil);

    bRet := InternetWriteFile(hRequest, @pBuffer, dwBytesRead, dwBytesWritten);

    sum := sum + dwBytesWritten;

  until dwBytesRead = SizeOf(pBuffer);





 HttpEndRequest(hRequest, nil, 0, 0);



  CloseHandle(hFile);

  InternetCloseHandle(hSession);

  InternetCloseHandle(hConnect);

  InternetCloseHandle(hRequest);    

end;