Ja, ere vorschläge sehen doch schon besser aus...

Wenn ich mir raiels code so ansehe könnte doch auch folgendes klappen:

Code: 
function ARGB(a,r,g,b: Byte): Integer;
var first: Pointer;
begin
  first := a^;
  Result := LongWord(first);
end;
Ich kenn mich mit pointern nicht so direkt aus... kann ich denn sichergehen r,g und b hinter a im Speicher sitzen?