Hola martita.
Podés usar la condición LIKE y parametrizar la consulta:
Código Delphi
[-]
function QueryNearest(AQuery: TIBQuery; Tabla, Campo: string; Dato: Variant): Boolean;
begin
AQuery.Close;
AQuery.SQL.Clear;
AQuery.SQL.Add('SELECT * FROM '+Tabla);
AQuery.SQL.Add('WHERE '+Campo+' LIKE :DATO || ''%''');
AQuery.ParamByName('DATO').Value:= Dato;
AQuery.Open;
Result:= not AQuery.IsEmpty;
end;
Si usas BDE basta con cambiar el tipo
TIBQuery del parámetro AQuery por el tipo
TQuery.
Saludos.