find user code

procedure TForm1.Button_checkUserClick(Sender: TObject);
const
  column_userName='userName';///هنا صع إسم حقل المستخدم
  Column_password='password';///هنا صع إسم حقل كلمة المرور
begin
  if not  ADOTable1.Active then
    ADOTable1.Active:=true;

  if ADOTable1.Locate(column_userName+';'+Column_password,VarArrayOf([Edit_userName.Text,Edit_Password.Text]),[]) then
    begin
      ShowMessage(' user find !');
    end
    else
      ShowMessage('user not find');
end;