Integer in Farbwerte zerlegen und dann jeweils auslesen

[Helmi]

Deiner Variablen "verstecke_Zahl" wird nirgends ein Wert zugewiesen,
da steht irgendwas drin

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
 s,r,g,b,v,versteckte_Zahl:integer;
begin
  {...}

 v:=versteckte_Zahl + s and $FF000000; //Zahl die verschlüsselt werden soll

  {...}
end;

Nebeibei bemerkt, warum definierst du dir eine (globale) Variable "Dateiname", wenn
du sie nicht nutzt?
ASSIGNFILE(DATEI,'versteckt.dat');