validar datos contra un valor de una tabla

[robertillo]

Hola;

Actualmente estoy programando en Delphi una aplicación pequeña - este foro es un tesoro para aprender (gracias) - mi duda va en que quiero validar un dato (código) que se pone en un TEdit y me indique si ese valor esta o no en la base de datos por medio de una bandera o mensaje ej:

si pongo 01 y ese valor esta en la tabla, me muestre un mensaje de que existe, sino me muestra uno de que no esté o algo así.

Estoy haciendo algo como esto pero no se si me estoy complicando más de lo debido

Código Delphi [-]
procedure validarVehiculo (xValor: string; var xValidado: boolean);
var     
DatosRegistro: TClientDataSet;    
xSQL: string;
begin
xSQL:= 'select v.cod_vehiculo '
        +'from vehiculo v, empresa e '
        +'where v.id_empresa = e.id_empresa '
        +'and v.cod_vehiculo =' + xValor + ' order by id_ruta_lugar'; //aqui no estoy muy seguro        
        +'order by cod_vehiculo ';
 
 with DatosRegistro do begin   
  if not (RecordCount = 0) then begin  
 
 //...codigo   
 //...asumo que por aqui tengo que hacer una validación tipo
 
 if xValor = fieldByname('cod_vehiculo')
 if Edit1.Text = xValor then
    xValidado:= true
  else 
   xValidado:= False;
end;

uso como motor de BD: interbase
Alguien me puede guiar un pco o si tienen una idea mejor . Saludos