am Webserver (PHP) anmelden

[strom]

hallo, habe doch noch ein problem wie fange ich die request Ok 200 ab?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  params: TStringList;
  url: string;
begin
  url:='http://192.168.0.85/index.php?action=login';
  params := TStringList.Create;
  try
    params.Add('btn-login=btn-login');
    params.Add('email='+ Edit1.Text);
    params.Add('password='+ Edit2.Text);

    idHTTP1.Post(url, params);

except
  on E: EIdHTTPProtocolException  do
    if (idhttp1.ResponseCode = 200) then
      Showmessage('Test');
    else
     Showmessage('Fehler');

    params.free;
  end;
end;