Foros Club Delphi - Como enviar variables FormField en un http.Post

Saludos amigos, siguiendo la cadena de mi otro post: http://www.clubdelphi.com/foros/showthread.php?t=90195, surje la necesidad de enviar variables de formulario junto con el archivo. No hay error de sintaxis, pero la variable idFacultad no esta llegando al archivo PHP:

Código Delphi [-]procedure TfrmMain.btnUploadClick(Sender: TObject);
var
  PostData: TIdMultipartFormDataStream;
begin
  PostData := TIdMultipartFormDataStream.Create;
  try
    if open.Execute then
    begin
      PostData.AddFile('file', open.FileName);
      PostData.AddFormField('idFacultad=',IntToStr(idFacultadSelected));
      txtResp.Text:=idhttp1.Post('http://localhost/dasi/upload.php', PostData);
    end;
  finally
  begin
    ShowMessage('Documento Subido!');
    PostData.Free;
  end;
  end;
end;

El Codigo del PHP es:

Código PHP:


		
			
<?php

$uploaddir = "docs_docente/";

$uploadfile = $uploaddir . basename( $_FILES['file']['name']);



if(move_uploaded_file($_FILES['file']['tmp_name'], $uploadfile))

{

  echo "ID Facultad" . $_POST['idFacultad'] . '<br>';

  echo "The file has been uploaded successfully";

}

else

{

  echo "There was an error uploading the file";

}

?>

Gracias por la atencion

Americo

Código Delphi [-]

procedure TfrmMain.btnUploadClick(Sender: TObject);
var
  PostData: TIdMultipartFormDataStream;
begin
  PostData := TIdMultipartFormDataStream.Create;
  try
    if open.Execute then
    begin
      PostData.AddFile('file', open.FileName);
      PostData.AddFormField('idFacultad',IntToStr(idFacultadSelected));
      IdHTTP1.Get('http://localhost/dasi/upload.php', TStream(nil));
      txtResp.Text:=idhttp1.Post('http://localhost/dasi/upload.php', PostData);
    end;
  finally
  begin
    ShowMessage('Documento Subido!');
    PostData.Free;
  end;
  end;
end;