создание random точек внутри окружности

[rombik]

как составить окружность с постоянным заданным в программном коде радиусом,что бы внутри окружности получались рандомные точки при нажатии мыши?

[Genco]

Получай через random() 2 случайных числа: от 0 до R -- L ; и от 0 до Pi -- fi. Далее
x:=X0+L*cos(fi);
y:=Y0+L*sin(fi);

Рисуешь по нажатию мыши.

[Stilet]

Так подойдет?

unit Unit1;

interface

uses       math,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  cx,cy,r:integer; l:array of double;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var i:integer;x,y:integer; q,w:double;
begin
 Canvas.Ellipse(cx+r,cy+r,cx-r,cy-r);
 for i:=low(l) to high(l) do begin
  q:=random(360);w:=random(360);
  x:=cx+round(l[i]*cos(GradToRad(q)));
  y:=cy+round(l[i]*sin(GradToRad(w)));
  Canvas.Pixels[x,y]:=clBlack;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 cx:=Width div 2;
 cy:=Height div 2;
 r:=150;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   SetLength(l,Length(l)+1);
  l[high(l)]:=random(r);
  Repaint;
end;

end.

[rombik]

не совсем)мне нужно,что бы точки внутри окружности сохранялись после нажатия)
и еще,где ты прописываешь кол-во точек внутри окружности?