[[AgustinOrtu]]

Código Delphi [-]
function CreateQuery(AOwner: TComponent; const ASQL: string): TFDQuery;
begin
  Result := TFDQuery.Create(AOwner);
  Result.Conncetion := // asignar connection, o dejarla vacia y asignarla despues,o pedirla por parametro, etc
  Result.SQL.Text := ASQL;
end;