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

procedure TForm1.__login__Click(Sender: TObject);
var
  lParams: TStringList;
begin
  lParams := TStringList.Create();
  lParams.Add('action=ucp.php?mode=login');
  lParams.Add('Benutzername=' + User.Text);
  lParams.Add('passwort=' + Pass.Text);
   lParams.Add('Anmelden=Login');
  Memo1.text := IdHttp1.Post('http://www.pup-board.de/ucp.php?mode=login', lParams);
end;