Abfragefehler bei mehreren Einträgen

[Gehstock]

Delphi-Quellcode:

  Account := edAccName.Text;
    ADOQuery1.Close;
    ADOQuery1.SQL.Text := 'select * from Accounts';
    ADOQuery1.Open;
     While Not ADOQuery1.Eof do
      begin
        if ADOQuery1.FieldByName('Name').AsString =(Account) then
           Checker := ADOQuery1.FieldValues['PW'] else
            Begin
             ShowMessage('Account existiert nicht');
             Exit;
            End;
           ADOQuery1.Next;
      end;

befindet sich nur ein Account in der Tabelle dann klappt alles bei mehreren Accounts sehe ich egal für welchen immer nur Account existiert nicht