for i:=0 to Form1.Component.Count -1 do
begin
Form1.Components.Left :=12
Form1.Components.Top :=12
Form1.Components.Width:=32
Form1.Components.Height:=32
end;
with Form do
for i := 0 to ComponentCount - 1 do
begin
if Comonents is TControl then
with TControl(Components) do
begin
Left :=
Top :=
...
end
else if Comonents is TGraphicControl then
with TGraphicControl(Components) do
begin
Left :=
Top :=
...
end;
end;
