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