fillrect funktioniert nur mit konstanten?

[Luckie]

Geht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, c, d: Integer;
begin
  Image1.Canvas.Brush.Color := clRed;
  Image1.Canvas.Brush.Style := bsSolid;
  a := 10;
  b := 10;
  c := 150;
  d := 25;
  Image1.Canvas.FillRect(rect(a, b, c-100, d));
end;