Hi, I debugging your code I found that the exception raises in this lines,
procedure TForm1.EmbedToBmp(const message: String; bmp, SaveTo: TBitmap);
var
bs: AnsiString;
pix: TColor;
x, y: integer;
count: Word;
bitmap: TBitmap;
begin
bs := ByteToBits(message);
SaveTo.Assign(bitmap); //<----Here
(...)
I wrote
procedure TForm1.EmbedToBmp(const message: String; bmp, SaveTo: TBitmap);
var
bs: AnsiString;
pix: TColor;
x, y: integer;
count: Word;
bitmap: TBitmap;
begin
bs := ByteToBits(message);
SaveTo := bmp; //<-- I change this
Well, I don't know why assign method fails. But with change seens works ok.
/BlueIcaro