Código Delphi [-]
Procedure TF_Clientes.VerificaCodigo;
var codigo : string;
begin
  With DataM.T_Clientes do
  begin
    codigo:= edit1.Text;
    IF  FieldByname('FC_CODIGO').AsString = codigo then
    begin
       ShowMessage('Codigo Encontrado');
    end
    else
    begin
      ShowMessage('Codigo No Existe');
    end;
  end;
end;

Código Delphi [-]
...
  if DataM.T_Clientes.Locate('FC_CODIGO', Edit1.Text, []) then
    ShowMessage('Codigo Encontrado')
  else
    ShowMessage('Codigo No Existe');
...

Código Delphi [-]
...
  if DataM.T_Clientes.Locate('FC_CODIGO', Edit1.Text, []) then
    ShowMessage('Codigo Encontrado')
  else
    ShowMessage('Codigo No Existe');
...

Código Delphi [-]
FieldByname

Código Delphi [-]
function ExisteElDato(AQuery: TSQLQuery; Dato: string): Boolean;
begin
 with AQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM TU_TABLA');
    SQL.Add('WHERE TU_CAMPO = :DATO');
    ParamByName('DATO').AsString:= Dato;
    Open;
    Result:= not IsEmpty;
  end;
end;

Código Delphi [-]
 if ExisteElDato(SQLQuery1, Edit1.Text) then
    ShowMessage('Existe')
  else
    ShowMessage('No existe');

Código Delphi [-]
  ...
   qryCopyCustFromMem.ExecSQL;
    // immediately locate the new customer in the dataset
    // using the just inserted ID number

    tblCustomers.Locate('CustNo', VarArrayOf([tblCustomers.LastAutoIncValue]), []);
 ...