1:

   IdHTTP1.AllowCookies := true;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  stream: TStringList;
  //SSLIOHandler: TIdSSLOpenSSL;
begin
  try
    try
      IdHttp1.HandleRedirects := true;
      IdHTTP1.AllowCookies:=true;
      IdHTTP1.CookieManager:=IdCookieManager1;

      stream := TStringList.Create;
      Stream.Add('login='+Login.Text);
      Stream.Add('pass='+Passwort.Text);

      s := idhttp1.Post('http://www.comunio.de/index.phtml',stream);

      if (Pos('Du bist als',s) > 0) then //Erfolgreich eingeloggt?
        ShowMessage('Du bist Eingeloggt.');
      if (Pos('Du bist als',s) = 0) then //Fehler!
        ShowMessage('Leider ist die E-Mail-Adresse oder das Passwort falsch.');
    finally
      Stream.Free;
    end;
  except on E: Exception do
    ShowMessage(E.Message);
  end;
end;					

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

<!-- login --><form method="post" action="login.phtml" name="login" style="display:inline"><table border="0" cellpadding="0" cellspacing="1"><tr><td align="right" valign="middle" class="text">Benutzername: <a href="signup.phtml" class="links" title="Anmelden">noch nicht angemeldet?</a></td><td align="right" valign="middle"><input type="text" name="login" size="10" maxlength="10" tabindex="1" style="width:80px;" /> </td></tr><tr><td align="right" valign="middle" class="text">Passwort: <a href="recoverPassword.phtml" class="links" title="Wiedererlange dein Passwort">vergessen?</a></td><td align="right" valign="middle">
  <input type="password" name="pass" size="10" maxlength="8" style="width:80px;" tabindex="2" onkeypress="checkEnter(event, 'login')" /> </td></tr><tr><td colspan="2" align="right"><input type="hidden" name="action" value="login" />

      <script language="JavaScript" type="text/javascript">
  <!--
document.write("<input type=\"hidden\" name=\">> Login\" value=\"-1\" \/>");document.write("<a href=\"javascript:submitForm('login','>> Login')\;\"");document.write(" tabindex=\"3\"");document.write(" class=\"login\"");document.write(" title=\">> Login\"");document.write(">");document.write(">> Login");document.write("<\/a>");
        //-->
      </script>
      <noscript>
<input type="submit" name=">> Login_x" value=">> Login" /></noscript>
 </td></tr></table></form><script language="javascript" type="text/javascript">
<!--
document.login.elements[0].focus();
// -->
</script><!-- login end --></td>					

1:
2:
3:
4:
5:

      stream := TStringList.Create;
      Stream.Add('login='+Email.Text);
      Stream.Add('pass='+Passwort.Text);
      Stream.Add('action=login');
      Stream.Add('Login=-1');					

1:
2:
3:
4:
5:

   Parameter        Value 
      login      ******
      pass      ******
      action      login
      >> Login_x    33					

1:
2:
3:
4:
5:

stream := TStringList.Create;
      Stream.Add('login='+Email.Text);
      Stream.Add('pass='+Passwort.Text);
      Stream.Add('action=login');
      Stream.Add('%3E%3E+Login_x=33');