[elcigarra]

Perdon, ya esta, nada que un momento de lucidez no arregle

Código Delphi [-]
procedure dibujardiagrama
var
  imagenauxiliar : TImage;
begin
imagenauxiliar.create(nil);
imagenauxiliar.width := ...
imagenauxiliar.Height := ...
imagenauxiliar.canvas.draw(0,0,ImageBase.Picture.Bitmap);
// ... acá los cálculos que sean para que cambie cada vez que llame el  procedimiento
imagenauxiliar.canvas.Fillrect(rect(etc...)); // esto no importa... son solo trazos
ImageResultado.canvas.draw(0,0,aimagenauxiliar.picture.bitmap);
end;

Es que hace tiempo no usaba graficos

Tal vez haya otra forma pero así funciona
Saludos