1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

<div class="contentBody">
   <form id="orderDetails" method="post" action="/MWIA/fc.htm?_flowExecutionKey=_cF3DF0F5F-5AC9-AA49-EF94-AD2B84B3E4F0_k85A54B9C-7754-52D4-5A84-D82AC4895810"><br>
      <label for="techId">Techniker Nummer</label><br/>
      <input id="techId" name="techId" style="-wap-input-format: '5N'; -wap-input-required: true;" type="text" value="" maxlength="5"/><br><br/>       <--- 1. Feld
      
      <label for="woId">Auftragsnummer</label><br/>
      <input id="woId" name="woId" style="-wap-input-format: '6N'; -wap-input-required: true;" type="text" value="" maxlength="6"/><br/><br/>          <--- 2. Feld
          
      <input type="submit" class="button" name="_eventId_login" value="Bestätigen"/><br/><br/>
      <input type="hidden" name="tek" value="SCH" />
   </form>
</div>                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

uses
  ..., IdHTTP;

var
  http: TIdHTTP;
  params: TStrings;
  result: String;
begin
  http := TIdHTTP.Create(nil);
  try
    params := TStringList.Create;
    try
      params.add('techId=1234');
      //usw...
      result := http.post('http://www.domain.com/script.php', params);
    finally
      FreeAndNil(params); 
    end; 
  finally
    FreeAndNil(http);
  end;
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
  sl : TStringList;
  test : String;
begin
  sl := TStringlist.Create;
  sl.Add('techId=123');
  sl.Add('woId=456');

  try
    test := IdHTTP1.Post('https://www.domain.com',sl);
  except
    Application.MessageBox('Fehler','Information',MB_ICONWARNING);
    Exit;
  end;

  sl.Free;
end;