Оффтоп: пжлст, заключите ваш код в тег [СODE]код[/СODE]
Зачем такие сложности, когда можно совсем просто
Код:
function aur(Login, Password: string): boolean;
begin
Result:= false;
ADOTable1.Locate('Login', Login, [loPartialKey]);
if (Login = ADOTable1.FieldValues['Login']) and
(Password = ADOTable1.FieldValues['Password']) then Result:= true;
end;