problem mit abfrage

[Gigant02]

Hallo

also ich wollte ein kleines login mit einer paradox 7 tabelle bauen

nun

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
Var
  cUser : string;
  cPass : string;
begin

  cUser           := Edit1.Text;
  cPass           := Edit2.Text;
  
  Query1.Active := false;
  Query1.sql.Clear;
  Query1.Sql.Add('SELECT Passwort FROM login WHERE User = ' + QuotedStr(cUser));
  Query1.Active := True;

  If (cPass = Query1.Fieldbyname('Passwort').AsString) then begin
    ShowMessage('hallo');
  end;

end;

ich benutze die TQuery komponente und irgendwie ist das nicht richtig oder besser gesagt es ist total falsch

wie mache ich das richtig ???

ich finde leider nur wenig in internet dadrüber oder ich suche falsch

lg, Gigant02