Делфи,примитив - RoundRect

[Ильгизуля]

Здравствуйте!
Необходимо создать программу рисования в форме графического примитива с заливкой. Примитив рисуется при нажатии кнопки мыши (событие onDown) на форме. Цвет линий, стиль и цвет заливки зависит от того, какая кнопка мыши нажимается (левая или правая).
примитив-RoundRect.
Программу написать написала, но никак не могу подобрать координаты. При каждом нажатии получается разная фигура.
Пожалуйста кто может помогите разобраться!!!!!!!
Код Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls,Extctrls;
 
type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbLeft then
  begin
    Canvas.Brush.Color:=clBlue;

[Stilet]

При каждом нажатии получается разная фигура.

Код в студию )

[s-andriano]

Сообщение от Ильгизуля

Программу написать написала
...
При каждом нажатии получается разная фигура.

Боюсь, что одно из утверждений не соответствует действительности.
Сами по себе "разные" фигуры не получаются, обычно они получаются, когда автор использует random.
Но трудно, если что-то специально используешь, не знать об этом.

В любом случае, просмотрите текст программы и удалите из него все упоминания random.