Programa Grafico

[[Lepe]]

Suponiendo que el nº de objetos es fijo y definido anteriormente:

Código Delphi [-]
Var T : Tshape;
begin
for i:=0 to Form1.ComponentCount -1 do
 if Form1.Components[i] is TShape then
 begin
    T := Tshape(Form1.components[i];
    CampoNombre.asstring := T.Name;
    CampoLeft.asInteger := T.Left;
 end;

Creo que es autoexplicativo el codigo,ya sabes .

Saludos