procedure TForm1.Button1Click(Sender: TObject);
var
i,tab:integer;
begin
 tab:=(sender as TWinControl).TabOrder ;
 for i:=0 to ComponentCount -1 do
  if (Components[i] as TWinControl).TabOrder=tab then
   showmessage((Components[i] as TWinControl).Name );
end;