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

procedure TForm1.LoginClick(Sender: TObject);
var sURL:String; slEintrag:TStringList; ausgabe:string;
begin
  slEintrag := TStringList.Create;
  sURL:='http://sound-base.extra.hu/admin/login-formular.php';
  with
  slEintrag do
  begin
    Values['name'] := name.Text;
    Values['passwort'] := pass.Text;
  end;
  try
    ausgabe:=IdHTTP1.Post(sURL,slEintrag);
    fehlermeldung.Text := 'loggedin';
  except
    fehlermeldung.Text := 'Senden fehlgeschlagen';
  end;
  slEintrag.Free;
end;					

1:
2:
3:
4:

If Pos('Login',ausgabe) > 0 then
  WriteLn('Drin')
else
  WriteLn('Nochmal versuchen');