Fórum Ponteiros com componentes.... #270876

   PDados = ^TListBoxDados;
   TListBoxDados  = Record
      codigo        : Integer;
      DataAtual   : TDate;      
   end;
var 
    list             : Array[0..6,0..5]of TListBox;
    listPoint    : PDados;

  { ALOCANDO PONTEIROS DA MEMÓRIA }
  for l:=0 to 5 do
  begin
    for c:=0 to 6 do
    begin
        list[c][l] := TListBox.Create(Self);
        with listDia[c][l] do
        begin
            Items.Clear;
            Items.Add(´clique´);
            listPoint                  := New(PDados);
            listPoint^.DataAtual := strtodate(´10/10/1990´);
            listPoint^.codigo      := 10;
            Items.Objects[0]     := Pointer(listObject);
            Items.Objects[1]     := Pointer(listObject);
       end;
    end;
end;

  { DESALOCANDO PONTEIROS DA MEMÓRIA }
  for l:=0 to 5 do
  begin
    for c:=0 to 6 do
    begin
      for i:=0 to list[c][l].Items.Count-1 do
        Dispose(Pointer(list[c][l].Items.Objects[i]));
    end;
  end;