Подскажите, как сделать проверку, к примеру, существует ли такая компания уже или нет?

query.sql.text:='SELECT company_name FROM table WHERE company_name='+quotedstr('AAA')
query.active:=true;
if query.recordcount>0 then showmessage('Такая или такие уже есть');

query.sql.text:='SELECT count(company_name) as c FROM table WHERE company_name='+quotedstr('AAA')
query.open;
if query.FieldByName('c').asInteger>0 then 
  showmessage('Такая или такие уже есть');

quotedstr('AAA')

quotedstr('AAA')

procedure TContractRunnerDlg.sCompaniExit(Sender: TObject);
begin
    Gate.qTemp.sql.text:='SELECT Firm FROM ContractFull WHERE Firm='+quotedstr('AAA');
      Gate.qTemp.Active := True;
      if Gate.qTemp.recordcount>0 then showmessage('уже есть такая компания!');
end;

begin
    Gate.qTemp.sql.text:='SELECT Firm FROM [emg_test0].[dbo].[ContractFull] WHERE Firm=' + sCompani.Text;
      Gate.qTemp.Active := True;
      if Gate.qTemp.recordcount>0 then showmessage('123');
      end;

WHERE Firm="\' + sCompani.Text";

begin
   Gate.qTemp.sql.text:='SELECT Firm FROM [emg_test0].[dbo].[ContractFull] WHERE Firm=''' + sCompani.Text+'''';
   Gate.qTemp.Active := True;
   if Gate.qTemp.recordcount>0 then showmessage('123');
      end;