Hola.
Podrías valerte del método
IsEmpty, por ejemplo:
Código Delphi
[-]
function ClienteExiste(aDataSet: TIBDataSet; aName: string):Boolean;
begin
with aDataSet do
begin
Close;
SelectSQL.Text:='SELECT * FROM CLIENTES WHERE NOMBRE LIKE :VALUE';
ParamByName('VALUE').Value:= aName;
Open;
Result:= not IsEmpty;
end;
end;
Llamada ejemplo:
Código Delphi
[-]
...
if ClienteExiste(IBDataSet,Edit1.Text) then
ShowMessage('existe')
else
ShowMessage('no existe')
...
Saludos.