(Resolvido) Percorrer TList

[robinhocne]

Não estou conseguindo fazer o seguinte.......

quando crio os TJvGradientHeaderPanel (pnHorario) eu dou um

lisHorario.Add(pnHorario);

então depois quero percorrer a lista e pegar algumas propriedades do pnHorario

for A := 0 to lisHorario.Count -1 do
      begin
         pnHorTop     := pnHorario(lisHorario[a]).Top;
         pnHorName  := pnHorario(lisHorario[a]).Name;
         pnHorCaption     := pnHorario(lisHorario[a]).Caption;
      end;

ai tá dando erro assim:

missing operator or semicolon

Edited November 1, 2011 by robinhocne

[robinhocne]

resolvi

for A := 0 to lisHorario.Count -1 do
      begin
         pnHorTop         := TJvGradientHeaderPanel(lisHorario[a]).Top;
         pnHorName      := TJvGradientHeaderPanel(lisHorario[a]).Name;
         pnHorCaption   := TJvGradientHeaderPanel(lisHorario[a]).Caption;
      end;