Integer in Farbwerte zerlegen und dann jeweils auslesen

[EMS]

ok ich hab das dann jetzt raus genommen aus dem Button 3
so müsste ich doch jetzt in v diesen Zahlenwert drinne stehen haben?
Aber es klappt immer noch nicht

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
s,r,g,b,v;
begin
ASSIGNFILE(DATEI,'versteckt.dat');
Reset(datei);
Read(datei,s);              //Farb Wert als integer
showmessage(inttostr(s));
//image3.Canvas.brush.Color:=s;
r:=s and $0000FF;                         //Rotwert als integer
g:=(s and $00FF00) shr 8;                 //Grünwert als integer
b:=(s and $FF0000)shr 16;                 //Blauwert als integer
v:=$FF000000 shr 32;     //Zahl die verschlüsselt werden soll
showmessage(inttostr(r));                 //Anzeigen der einzelnen Werte
showmessage(inttostr(g));
showmessage(inttostr(b));
showmessage(inttostr(v));
//image3.canvas.fillrect(rect(0,0,90,90));
Closefile(datei);
end;