Bueno lo que yo hago en esos casos es poner el codigo de busqueda en una funcion de clase (class function)
Código Delphi
[-]class function TfrmBusqueda.Buscar(DatoaBuscar:string;Var ID:integer):boolean;
En el parametro de salida retorno el codigo encontrado.
La llamada quedaria asi:
Código Delphi
[-]If TfrmBusqueda.Buscar(MIparametro,I) then
Disculpa si no soy mas explicito pero es q de momento no tengo delphi a mano.
Espero te sirva
Saludos