ich vermute mal, es liegt vermutlich daran:
Delphi-Quellcode:
image2.Picture.Bitmap := btm;
gold := btm;
...
btm := gold;
Du kannst nicht so einfach die Instanzen von TBitMap hin- und herkopieren ... du solltest deren Inhalt kopieren und nicht die Instanz selber.