Konwersja (r,g,b) na integer w Pascalu

Hej

Mam do napisania program, który zamieni kolor zapisany w rbg jako trójkę r(0-255), g(0-255), b(0-255) na odpowiadającą mu wartość w integer.

Szukałam już czegoś na googlu ale nie mogę dojść jak to napisać w Pascalu.

Dziękuję za pomoc :)

http://www.google.pl/search?hl=pl&q=pascal+rgb+to+integer&aq=f&aqi=&aql=&oq=&gs_rfai= - PIERWSZY WYNIK W GOOGLE!!!

zamiast przesunięć bitowych można też użyć typu wariantowego:

type TKolor = packed record case boolean of
   true: (B,G,R,A : byte;) // nie jestem pewien co do kolejności. jak będzie źle wychodzić to poprawić
  false: (int : integer;)
end;

i teraz zapisujemy rgb:

var kolor:TKolor;
kolor.R:=128; kolor.G:=0; kolor.B:=255;

i od razu mamy integera:

writeln(kolor.int);

w drugą stronę też działa.