procedure TForm1.Button1Click(Sender: TObject);
var x,y : integer;
begin
  x:= random(image1.width);
  y:= random(image1.Height);
  image1.canvas.ellipse(x,y,x+30,y+30);
end;

end.