[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;

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

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