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

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  PostDataStream : TStringStream;
  ParamData : TStringStream;
begin
  IdHTTP:= TIdHTTP.Create(nil);
  PostDataStream := TStringStream.Create('');
  ParamData := TStringStream.Create('');
  ParamData.WriteString('email=lawel&password=');
  IdHTTP.Post('http://www.schuelervz.net/login.php' , ParamData, PostDataStream);
  postdatastream.Position:=0;
  memo1.Text:=postdatastream.DataString;
end;					

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

begin
  IdHTTP:= TIdHTTP.Create(nil);
  PostDataStream := TStringStream.Create('');
  ParamData := TStringStream.Create('');
  ParamData.WriteString('?login=einloggen&email=lawel&password=1234');
  IdHTTP.Post('http://www.schuelervz.net/login.php' , ParamData, PostDataStream);
  postdatastream.Position:=0;
  memo1.Text:=postdatastream.DataString;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP: TIdHTTP;
  PostDataStream : TStringStream;
  ParamData : TStringStream;
begin
  IdHTTP:= TIdHTTP.Create(nil);
  PostDataStream := TStringStream.Create('');
  ParamData := TStringStream.Create('');
  ParamData.WriteString('?Login=einloggen&email=test&password=pw');
  IdHTTP.Post('http://www.schuelervz.net/Login.php' , ParamData, PostDataStream);
  postdatastream.Position:=0;
  memo1.Text:=postdatastream.DataString;
end;					

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

<form id="Login" method="post" action="https://secure.schuelervz.net/Login">
        <fieldset>
            <label for="Login_email">E-Mail</label>
            <input class="fieldText" type="text" name="email" id="Login_email" value="" />
            <label for="Login_password">Passwort</label>
            <input class="fieldText" type="password" name="password" id="Login_password" value="" />

            <input class="fieldBtnSubmit" type="submit" name="login" value="Einloggen" />
            <input type="hidden" name="jsEnabled" id="jsEnabled" value="false" />
            <input type="hidden" name="formkey" value="(von mir entfernt wegen Datenschutz)" />
<input type="hidden" name="iv" value="(Von mir entfernt, so.o.))" />
<input type="hidden" name="checkcode" value="(auch von mir entfernt)" />

        </fieldset>
    </form>					

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

procedure TForm1.Button1Click(Sender: TObject);
var
  bla:tstringlist;
  IdHTTP: TIdHTTP;
  PostDataStream : TStringStream;
  ParamData : TStringStream;
begin
bla := tstringlist.create;
  IdHTTP:= TIdHTTP.Create(nil);
  idHTTP.AllowCookies := true;
  PostDataStream := TStringStream.Create('');
  ParamData := TStringStream.Create('');
  ParamData.WriteString('?login=Einloggen&email=&password=pw');
  IdHTTP.Post('http://www.secure.schuelervz.net/Login' , ParamData, PostDataStream);
  postdatastream.Position:=0;
  memo1.Text:=postdatastream.DataString;
  bla.add(memo1.text);
  bla.savetofile ('test.html');

end;