1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.FormCreate(Sender: TObject);
var i: integer ;
    PTarget:^TTarget;
begin
targets:= TList.Create;
for i:=0 to 10 do
begin
New (PTarget);
targets.Add(PTarget);
PTarget^:= TTarget.create(level);
PTarget^.left:=onewleft;
PTarget^.top:=onewtop;
PTarget^.width:=30;
PTarget^.height:=10;
PTarget^.shape:=stRectangle;
PTarget^.brush.Color:=clred;
PTarget^.brush.Style:=bsSolid;
PTarget^.visible:=True;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Proc....
var
   i:integer;
   PTarget:^ttarget;
begin
for i:=0 to (targets.Count -1) do
begin
PTarget:= targets.Items[i];
PTarget^.show;
PTarget^.repaint;
end;
end;					

1:
2:

mytarget:=ttarget.create;
mylist.add(mytarget);