1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  data: TIdMultiPartFormDataStream; 
begin 
  data := TIdMultiPartFormDataStream.Create; 
  try 
    { add the used parameters for the script } 
    data.AddFormField('param1', 'value1'); 
    data.AddFormField('param2', 'value2'); 
    data.AddFormField('param3', 'value3'); 

    { Call the Post method of TIdHTTP and read the result into TMemo } 
    Memo1.Lines.Text := IdHTTP1.Post('http://localhost/script.php', data); 
  finally 
    data.Free; 
  end; 
end;					

1:

data.AddFormField('param1', 'value1');					

1:

idhttp.Request.ContentType := 'application/x-www-form-urlencoded';