Es ging mir nur darum dir zu zeigen, welche Stelle im Code ich meine.

Bei der Übernahme in die Zwischenablage muss
b.Width := 32;
dann auch an die tatsächliche Weite angepasst werden.
b.Width := Image.Width;

sast