Can anyone tell me why I can't write to an Image. Can't even change the color of the image with Image.canvas.brush.color. Image just stays black. ie: procedure below gets called but image remains black.
procedure TForm1.Image6Paint(Sender: TObject);
begin
form1.button1.caption:='image6 got painted';
with form1.image6.canvas do
begin
Brush.Color := clRed;
fillrect(form1.image6.left +2,form1.image6.top+20,form1.image6.left +12,form1.image6.top+50);
end;
end;