Steganographie

[himitsu]

Delphi-Quellcode:

if bmp.PixelFormat <> pf24Bit then
begin
  MessageBox(Handle, 'Kein 24Bit Bmp-Datei', 'Fehler', MB_OK or MB_ICONWARNING );
  bmp := nil;  <<<<<

ein schönes Speicherleck,
abgesehn davon gibt's beim nächsten Versuch ein Bild zu laden eine schöne Exception, da bmp nil ist und auf kein Objekt zeigt.

SetLeastSignificantBit der Name ist verwirrend ... 4 Bits sind kein Bit

Das mit dem extra Write-Button find ich verwirrend ... laß diesen Button weg und mach dieses mit in das Speichern-Menü rein.