1:
2:
3:
4:
5:
6:
7:
8:

type 
  TdmRGB = Packed record
    case Integer of
             0 : (b,g,r,a : Byte);
             1 : (Color32 : cardinal);
    end;

    TdmC = TdmRGB as cardinal; // Hier liegt das problem, ich will, dass er TdmC als cardinal behandelt!					

1:
2:
3:
4:
5:
6:
7:

 var col1: TdmC;
var col2: TdmRGB;
var alpha: byte;
...
col1 := $FF45FF12;
col2 := col1;
alpha := col2.a;					

1:
2:
3:
4:
5:
6:
7:

var col1: TdmC; 
var col2: TdmRGB; 
var alpha: byte; 
... 
col1 := $FF45FF12; 
CopyMemory(@col2,@col1,sizeof(col1)); //funzt nur, wenn sizeof(col1)<=sizeof(col2) -> andernfalls: umschreiben
alpha := col2.a;					

1:
2:
3:
4:
5:
6:
7:
8:

var col1: cardinal; 
var col2: ^TdmRGB; 
var alpha: byte; 
... 
col1 := $FF45FF12;
col2 := @Col1;
alpha := col2.a;
ShowMessage(intToStr(alpha));					

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

type 
var dmRGB:  TdmRGB;
wert: Cardinal;

dmrgb.b:=127;
dmrgb.g:=125;
dmrgb.r:=0;
dmrgb.a:=0;

wert := dmRGB.color32;