flag würde ich als boolean nehmen.
Delphi-Quellcode:
flag := false;
while not Form1.Query1.Eof {or not flag} do
begin
a1 := query1.Fieldbyname('Name').AsString;
b1 := query1.Fieldbyname('Passwd').AsString;
flag := (a = a1) and (b = b1);
query1.Next; //wurde bei dir nicht mehr aufgerufen, wenn die obere bedingung erfüllt war
end;