Fórum array no delphi #225856

Oi pessoal tenho uma pequena rotina para criar indice em clipper que gostaria de fazer no delphi mais estou meio enrrolado:

FUNC Organiza()
local Local1, Local2:=´tabcli.dbf´
Local1:= {{´nome´, ´nomcli´}, {´numero´,´codcli´}, {´cpf´,´cpfcli´}}
fazind(Local1,Local2)
DBCLOSEAREA()
Return(NIL)
*
*****************
static function fazind(Arg1,Arg2)
local Local1, Local2

Use(Arg2) //usa tabcli
for x= 1 to len(Arg1) //conta matrizes para fazer o loop neste exemplo=3
Local1:= Arg1[X,1]
Local2:= Arg1[X,2]
INDEX ON &local1 TAG &Local2
end
return(Nil)
*****************
//esta funcao vai gerar um indice de nome tabcli com 3 tags que sao:
nomcli
codcli
cpfcli
Gostaria de fazer esta mesma rotina em delphi7 mais nao conssegui se alguem pode me ajudar agraço - leo.