labels verändern sich nicht

[Haegar]

hi,
in meinem leveleditor (simpel mit drawgrid) kann man per trackbar die anzahl an zeilen und spalten bestimmen (quasi breite und höhe des levels).
die im bild rot markierten labels sollten sich bei verändern einer trackbar mit verändern, nur funktioniert das nicht. scrollbars und das drawgrid funktionieren richtig, nur die labels verändern sich nicht. sie sollen die aktuelle position der trackbar wiedergeben, um so die breite/höhe anzuzeigen.

hier der code...

Delphi-Quellcode:

procedure Tfrm_haupt.trackb_breitChange(Sender: TObject);
begin
 case (Sender as TTrackbar).Tag of
  1: begin
      drwgrid.ColCount:=(Sender as TTrackbar).Position;
      lbl_breit.Caption:=IntToStr((Sender as TTrackbar).Position); //-> klappt net
      with scroll_level_h do
       begin
        Enabled:=drwgrid.ColCount>21;
        if (((Sender as TTrackbar).Position-21)>0) then
         Max:=(Sender as TTrackbar).Position-21;
       end;
     end;
  2: begin
      drwgrid.RowCount:=(Sender as TTrackbar).Position;
      lbl_hoch.Caption:=IntToStr((Sender as TTrackbar).Position);  //-> klappt net
      with scroll_level_v do
       begin
        Enabled:=drwgrid.RowCount>14;
        if (((Sender as TTrackbar).Position-14)>0) then
         Max:=(Sender as TTrackbar).Position-14;
       end;
     end;
 end;
end;

danke schonmal
gruß haegar