Superpocision de imagen en Image.Canvas

[[cHackAll]]

prueba;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 Canvas.Pen.Width := 2;
 Canvas.Pen.Color := clBlack;
 Canvas.Brush.Color := clGreen;
 Canvas.Rectangle(100, 100, 200, 200);
 Canvas.Rectangle(150, 150, 250, 250);
end;

Talvez si nos copias (parte de) tu codigo podriamos saber que sucede