100分求问？TabOrder 顺序

Question

我的窗体里  有 TEdit,TCombobox,TListBox 等类型不同的控件。如何用程序动态的设置他们的
TabOrder 顺序。每次程序启动时加载他们的 TabOrder 顺序，要求可以改动TabOrder 顺序

Answer 1

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

Answer 2

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;自己修改

Answer 3

不好意思，居然和 xiaocuo_zrf(女巫手上的猫) 的代码一样，分给他吧