1:
2:
3:
4:

type
  TEnum = (abButton, abListe);
const
  EnumTrans: array[TEnum] of TClass = (TButton, TList);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button1Click(Sender: TObject);
var abc: TObject;
begin
  abc := TList.Create;
//    abc := TButton.Create(nil);
  try
    if abc is EnumTrans[abListe] then
      ShowMessage('Liste')
    else if abc is EnumTrans[abButton] then
      ShowMessage('Button');
  finally
    abc.Free;
  end; // end finally
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

object o = new Button();
.....

if (o is Button)
{
  // TODO
}
if (o is ArrayList)
{
  // TODO
}					

1:

with EnumTrans[abListe].Create(nil) do begin...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

        enum MyEnum
        {
            Button,
            Label,
            Form
        }
.....
        SortedList<MyEnum, object> list = new SortedList<MyEnum, object>();
.....
        list[MyEnum.Button] = new Button();
.....
        if (list[MyEnum.Button] is Button)
                MessageBox.Show("OK");					

1:

EnumTrans[abListe].Create(nil)