Function result array

[rodnei]

ola pessoal .

esou criando uma funcao que me retorne um array

Type

  TFiltroRateio = Record

    conta: String;

    Descricao: String;

  End;

a funcao é essa :

//------------------------------------------------------------------------------

Procedure GetFiltroRateio(Opfinan: integer; var conta:Array Of TFiltroRateio);

Var

  MySql: String;

  Contar: integer;

  tabela: TIBQuery;

  tmp: Array Of TFiltroRateio;

Begin

  setlength(conta, 0);

  SetLength(tmp, 0);

  tabela := TIBQuery.create(application);

  tabela.close;

  tabela.database := dm1.IBDatabase;

  tabela.sql.clear;

  tabela.sql.add('select * from OPRATEIO');

  tabela.sql.add(format('where OPFINAN = %d', [Opfinan]));

  tabela.sql.add('order by conta');

  tabela.open;

  tabela.First;

  contar := 0;

  While Not tabela.Eof Do

    Begin

      inc(contar);

      tabela.Next;

    End;

  If contar > 0 Then

    Begin

      SetLength(tmp, contar);

      contar := 1;

      tabela.First;

      While Not tabela.Eof Do

        Begin

          tmp[contar].conta := tabela.fieldbyname('conta').asstring;

          tmp[contar].Descricao := tabela.fieldbyname('descricao').asstring;

          inc(contar);

          tabela.Next;

        End;

    End;

  tabela.free;

End;

mas se eu der setlength(conta,0) da incomtibilidade , dis que a variavel conta nao e multidirecional , as éa mesma que a variavel tmp fiquei sem entender vo char a funcao asism :

Procedure TFM_OPFinan.MostraRatreio(OpFinan: integer);

Var

  Rateio: Array Of TFiltroRateio;

  f: Integer;

Begin

  Setlength(Rateio,0);

  GetFiltroRateio(OpFinan, Rateio);

  If length(Rateio) > 0 Then

    Begin

      tbTemp.Close;

      TbTemp.Open;

      For f := 1 To length(Rateio) Do

        Begin

          TbTemp.Append;

          TbTempconta.Value := rateio[f].conta;

          TbTempdescricao.Value := rateio[f].Descricao;

          TbTemp.Post;

        End;

    End;

End;