Code vereinfachen (obj as Tbutton)

[R2009]

Hi,
ich möchte auf all diese Objekte zugreifen ohne die vielen ifs:
Alle haben das Property caption gemeinsam.
Hat jemand eine Idee wie man das vereinfachen kann?
Am liebsten wäre mir obj.caption:='tralala'.

Delphi-Quellcode:

    (sender as tform).GetTabOrderList(List);
    //detect all controls.
    For n:=0 to list.Count-1 do
      begin
        obj:=list.Items[n];
        If (obj is Tbutton) then
           begin
            (obj as Tbutton).caption:='huhu';
           end;
        If (obj is Tradiobutton) then
           begin
             (obj as Tradiobutton).caption:='huhu';
           end;
        If (obj is Tcheckbox) then
           begin
             (obj as Tcheckbox).caption:='huhu';
           end;
       end;

Grüsse
Rainer