怎样在程序中遍历某form有taborder的控件？解决办法

怎样在程序中遍历某form有taborder的控件？
怎样在程序中遍历某form有taborder的控件？(即label，query那些不用遍历)且将该控件的taborder保存到ini文件中，并且可以修改，在程序启动时从ini文件读入该控件的taborder?

[解决办法]
uses TypInfo;

procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
begin
if IsPublishedProp(Components[I], 'TabOrder ') then
Memo1.Lines.Add(Components[I].Name);
end;
end;