Login Webservice Delphi

[RomeoAnfänger]

Hallo,
ich habe den Login Code Webservice für eine Mobil App implementiert und beim Ausführen ,reagiert den Code überhaupt nicht .Ich benutze NexusDB Datenbank Server und von der App die eingegeben Benutzername und Passwort sollen mit den Benutzernamen und Passwörtern von NexusDB vergleichen und wenn die Daten identisch sind ,dann bekommt der Appsuser eine Nachricht (Erfolgreich eingeloggt ) und dann öffnet sich eine neue Seite .Ich weiß nicht ,was ich falsch gemacht habe ? Könnte ihr mir helfen ? Wer das Problem löst ,krieg von mir eine volle Bierkiste.
Danke für ihre Hilfe .

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin
try
nxQuery1.SQL.Text:='select * from Mitarbeiter where Benutzername=: p1 and Passwort=: p2';
nxQuery1.Params.ParamByName('p1').Value := edit1.Text;
nxQuery1.Params.ParamByName('p2').Value := edit2.Text;
nxQuery1.ExecSQL;

nxQuery1.Open;
if (Edit1.Text = nxQuery1.FieldByName('Benutzername').AsString) and
(Edit2.Text = nxTable1.FieldByName('Passwort').AsString)
then
begin
GroupBox1.Visible:= false;
//SaveTimeClient.Show;//Funktioniert auch nicht .Deshalb habe ich es auskommentiert. Hier wir das Hauptmenu //geöffnet ,wenn der User richtig eingellogt wird ,d.h der User hat zugrifft auf den Server auch .
//Webservices_Login_Server.Hide;// Hier wird die Seite Login versteckt oder nicht angezeigt.

end;
except
else showmessage ('Ungültiger Benutzername oder Passwort !');

end;

end.