[Algplux]

Не могу разобраться, как FillRect работает.
Пробую написать так:

Код:

procedure TForm1.Button7Click(Sender: TObject);
var
  MyRect: TRect;
  x, y: Integer;
begin
  StartPlace.x := X;
  StartPlace.y := Y;
  EndPlace.x := X;
  EndPlace.y := Y;
  MyRect:= Rect(StartPlace.X, StartPlace.Y, EndPlace.X, EndPlace.Y);
  Form1.Canvas.Brush.Color := clWhite;
  Form1.Canvas.FillRect(MyRect);
end;

Но обрисованной остается только рамка, а мне нужно закрасить весть прямоугольник, помогите пожалуйста разобраться.