Einloggen auf Website

[pinky1990]

wieso kommt bei diesen code:

Delphi-Quellcode:

var
  s:string;
  stream: TStringList;
  begin
  try
    try
        stream := TStringList.Create;
      Stream.Add('username='+Edit1.Text);
      Stream.Add('passwort='+Edit2.Text);
      Stream.Add('action=Login');
      s := idhttp1.Post('http://www.pup-board.de/upp/uem/uem_funktionen.php',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 der Username oder das Passwort Falsch.');
    finally
      Stream.Free;
    end;
  except on E: Exception do
    ShowMessage(E.Message);
  end;

Immer Leider ist der username oder das Passwort falsch??
mfg