дк а что у тебя выполняется если это выполнится If (Edit1.Text<>'') and (Edit2.Text<>'') then.........
это во-первых
во-вторых
If ADOTable1.Locate('Логин',Edit1.Text,[loCaseInsensitive, loPartialKey])
and (ADOTable1.FieldByName('Пароль').AsString=Edit2.Te xt)
вот так правильнее будет
|