var I: integer;
begin
for I:=0 to Self.ComponentCount-1 do
begin
if (Components[i] is TWinControl) then
(self.Components[i] as TWinControl).TabOrder := i;
end;
end;
begin
for I:=0 to Self.ComponentCount-1 do
begin
if (Components[i] is TWinControl) then
(self.Components[i] as TWinControl).TabOrder := i;
end;
end;