[Drozh]

Код:

If (Edit1.Text<>'') then
begin
    If ADOTable1.Locate('Login',Edit1.Text,[loCaseInsensitive, loPartialKey]) then
    begin
        Label3.Caption:=('Такое имя пользователя уже есть!');
        Label3.font.Color:=clREd;
    end
    else
    begin
        Label3.Caption:=('Нет совпадений!');
        Label3.font.Color:=clGreen;
    end;
end
else
begin
    Label3.Caption:=('Так нельзя!!!!');
    Label3.font.Color:=clRed;
end;