Crear query dentro de unit y funcion?

[dec]

Hola,

Nunca utilizé ese componente, así que acaso alguien pueda corregirme: por favor, háganlo si es menester.

Creo que tienes al menos un par de problemas. Primeramente que el componente has de crearlo tal que así:

Código Delphi [-]
  var
    con: TIbQuery;
  begin
    con := TIbQuery.Create(...);
    // con.Create(...) {Así no}
  end;

Por otro lado, el parámetro que te pide es de tipo "TComponent". Creo que puedes optar (al menos, ya digo, o tal vez) por encapsular esa función en algún componente "TComponent" o descendiente de "TComponent". De ese modo podrás ya utilizar el miembro implícito "Self".

O, de otro modo, añadir a tu unidad la unidad "Forms", de tal manera que puedas hacer uso del objeto Application de este modo:

Código Delphi [-]
 var
    con: TIbQuery;
  begin
    con := TIbQuery.Create(Application);
  end;