Função para retornar um array

Estou tentando fazer um sistema o mais OO possível. Para isso, estou tentando seguir o modelo MVC. COloquei uma função no DataModule para efetuar uma pesquisa de acordo o com os parâmetro passados. No entando, não sei como pegar os valores de campo no form onde chamo a função. O que quero na verdade é que minha função retorne um array e que eu possa pegar o valor de cada elemento para atribuir a um componente visual(edit, combo etc). Segue abaixo o código da função.
Desde já agradeço. Vinicius F.

function TdtmSistema.PegaDados(pTexto, pNomeCampo, pTabela: string;
pNumero: boolean): OleVariant;
var
iCont: integer;
begin
if not (pNumero) then
pTexto := chr(39) + pTexto + chr(39);
with qryAux do
begin
Close;
SQL.Clear;
SQL.Add(´SELECT * FROM ´ + pTabela);
SQL.Add(´WHERE ´ + pNomeCampo + ´= ´ + pTexto);
try
Open;
except
end;
end;
if qryAux.Active then
begin
Result := VarArrayCreate([0, qryAux.FieldCount - 1 ], varVariant);
for iCont := 1 to qryAux.FieldCount do
Result[iCont - 1] := qryAux.Fields.Fields[iCont].AsString;
end
else
Result := Unassigned;
end;