1:
2:

SELECT BNAME FROM BENUTZER
WHERE BNAME = :TEdit1.Text;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.LoginBnClick(Sender: TObject);
begin
if (SQLQuery1 = BenNameTxt.Text) and (PasswortTxt.Text = 'haste') then begin
Form1.Visible := false;
Form2.Showmodal;
end else
MessageDlg('Fehlerhaftes Passwort/Benutzername',mtWarning,[mbok],0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

// Query durch deinen Querynamen ersetzen
query.sql.add(Format('SELECT BNAME FROM BENUTZER
WHERE BNAME = ''%s''', [Edit1.text]);
// sucht aber nur genaue Treffer (gross/Klein)
// folgendes unabhängig von Gross/klein
query.sql.add(Format('SELECT BNAME FROM BENUTZER
WHERE UPPER(BNAME) = ''%s''', [Uppercase(Edit1.text)]);
// wobei ich im moment nicht sicher bin, ob beide upper-anweisungen 
// richtig geschrieben sind (hab gerade kein Delphi da)
// dann Query öffnen und machen, was immer du auch damit machen willst					

1:

SQLQuery1 <> NULL					

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

procedure TForm1.LoginBnClick(Sender: TObject);
  var
    SR: SQLResult;
begin
  try
    SQLQuery1.SQL.Clear;
    SR:=SQLQuery1.sql.add(Format('SELECT BNAME FROM BENUTZER WHERE BNAME = ''%s''',[BenNameTxt.Text]));
    SQLQuery1.Open;
    if (SR <> Null) then
      if (PasswortTxt.Text = 'haste') then
        begin
          Form1.Visible := false;
          Form2.Showmodal;
        end
        else begin
          Form1.Close;
          Form2.Close;
    end
  finally
    SQLQuery1.Active := false;
    SQLQuery1.sql.clear;
  end
end;					

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

procedure TForm1.LoginBnClick(Sender: TObject);
begin
  try
    SQLQuery1.SQL.Clear;
    SQLQuery1.sql.add(Format('SELECT BNAME FROM BENUTZER WHERE BNAME = ''%s''',[BenNameTxt.Text]));
    SQLQuery1.Open;
    if ( Not (SQLQuery1.IsEmpty) and (PasswortTxt.Text = 'haste')) then
        begin
          Form1.Visible := false;
          Form2.Showmodal;
        end
        else begin
          Form1.Close;
          Form2.Close;

    end
  finally
    SQLQuery1.Active := false;
    SQLQuery1.sql.clear;
  end
end;					

1:
2:
3:
4:
5:

// eventuell query auf den Anfang setzen, manche Comps machen das von allein
SQLQuery1.First;
If Not SQLQuery1.Eof Then begin
  SQLQuery1.Fields[FieldNo].As(integer)(String)(Whatever); 
end;