>>764
   Image1.Picture.LoadFromFile('puyo2ch.bmp');
Img := TBitmap.Create;
Img.Width := 32;
Img.Height := 32;
Img.Transparent := True;
Img.Canvas.CopyRect( Rect(0,0,s,s), Form1.Image1.Canvas, Rect(0,0,32,32) );

CharImg := Img;
Img := CharImg;
Form1.Canvas.CopyRect( Rect(0,0,s,s), Img.Canvas,Rect(0,0,s,s));
こんな感じです。
ただ実際はBackImg(TBitmap)に描いてからformに書き込んでます