[loki23]

Вот программа, всё работает, но я не знаю как сделать, чтобы изменялся задний фон (то бишь холст), нужно сделать на форме текстовое поле, в которым пользователь может задавать размер этого холста, где прорисовывается фигура (не больше 500 пикселей). Помогите пожалуйста

[Pyro]

я бы все текстовые поля сделал скрытыми:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.Text := IntToStr(x);
  Edit2.Text := IntToStr(y);
  Edit3.Text := IntToStr(TrackBar1.Position);
  DrawClick(nil);
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  TrackBar1.Min := 2;
  Edit3.Text := IntToStr(TrackBar1.Position);
  DrawClick(nil);
end;

задавать размер этого холста

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