Ayuda con función en Delphi
 

Tengo el siguiente código en Delphi :

Código Delphi [-]
function Check(const UserAgent: string; const Server: string; const Resource: string; const Data: AnsiString): string;
    var
      hInet: HINTERNET;
      hHTTP: HINTERNET;
      hReq: HINTERNET;
      Buffer: array[0..1023] of AnsiChar;
      i, BufferLen: Cardinal;
    const
      accept: packed array[0..1] of LPWSTR = (PChar('*/*'), nil);
      header: string = 'Content-Type: application/x-www-form-urlencoded';
    begin
      Result := '';
     
      hInet := InternetOpen(PChar(UserAgent), INTERNET_OPEN_TYPE_PRECONFIG,
        nil, nil, 0);
      try
        hHTTP := InternetConnect(hInet, PChar(Server), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
        try
          hReq := HttpOpenRequest(hHTTP, PChar('POST'), PChar(Resource), nil, nil, @accept, 0, 1);
          try
            if not HttpSendRequest(hReq, PChar(header), Length(header), PChar(Data), Length(Data)) then
              raise Exception.Create('HttpOpenRequest failed. ' + SysErrorMessage(GetLastError));
            repeat
              InternetReadFile(hReq, @Buffer, SizeOf(Buffer), BufferLen);
              if BufferLen = SizeOf(Buffer) then
                Result := Result + AnsiString(Buffer)
              else if BufferLen > 0 then
                for i := 0 to BufferLen - 1 do
                  Result := Result + Buffer[i];
            until BufferLen = 0;
          finally
            InternetCloseHandle(hReq);
          end;
        finally
          InternetCloseHandle(hHTTP);
        end;
      finally
        InternetCloseHandle(hInet);
      end;
    end;
     
  
Memo1.Lines.Add(Check('Agente','localhost','pos.php','probar=test+submit=Now'));

Mi duda está en el tercer argumento en el cual tengo que poner los datos para POST:

'probar=test+submit=Now'

Estos datos no funcionan ya que cuando capturo la respuesta en el memo se muestra que el metodo post funciono mal

El código del archivo pos.php es


La pregunta es: ¿cómo ordeno el tercer argumento para que el formulario funcione bien?

¿ Alguien me puede ayudar ?