Ok, so habe ich es noch nie gebraucht, ich arbeite sonst mit
GDI+ in Graphiccontrols, aber so gehts
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin
image1.Canvas.Brush.Color := clWhite;
image1.Canvas.FillRect(Rect(0,0,Image1.Width ,Image1.Height ));
image1.Transparent := true;
image1.Canvas.pen.Color := clRed;
image1.Canvas.Brush.Color := clLime;
image1.Canvas.ellipse(10,10,100,100);
end;