Passwortabfrage durch IB

[raccoon]

boa ich check des nich so ganz, ich hab des jetzt so geschrieben,

Delphi-Quellcode:

procedure TForm1.BTN_LoginClick(Sender: TObject);
var  s2,s1:string;
  s1:=ED_Passwort.Text;
  s2:=ED_Username.Text;
  IBD.Params.Strings:='password='+s1;
  IBD.Praams.Strings:='username='+s2;
begin
  if (IBD.Params.Strings=ED_Passwort.Text) and (IBD.Params.Strings=ED_Username.Text) then
  begin
    Form2.Show;
    Form1.Visible:=false;
  end;
end;

doch ich werd daraus nich schlau, erstens sagt er bezeichner redefiniert was ich zum ersten mal sehe und sonst weiß ich auch nich weiter...