[ecfisa]

Empezado por Leopard2

... pero si uso una instrucción Select, si el registro existe me lo muestra sin problema pero si no existe como retorna el valor de "no encontrado" o "False" para tomarlo como lo hace Locate?

Hola Leopard2.

Podes usar el método IsEmpty:

Código Delphi [-]
function TForm1.CodeExists(const Code: string): Boolean;
begin
  with IBQuery do
  begin
    Close;
    SQL.Text:= 'SELECT CODIGO FROM TABLA WHERE CODIGO = :PCOD';
    ParamByName('PCOD').AsString:= Code;
    Open;
    Result:= not IsEmpty;
  end;
end;

Ej. de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if CodeExists('000111') then
    ShowMessage('El código existe')
  else
    ShowMessage('El código no existe');
end;

Saludos