Keine Scrollbar bei ListBox?

[Teekeks]

Hi!
Ich habe mittlerweile heraus gefunden dass das Problem auch ohne ScrollBar der ListBox auftritt.

Daher bitte ich euch:
Könnt ihr mir bei meinem Fehler in den Berechnungen Helfen?

Delphi-Quellcode:

procedure TFrmMain.FormResize(Sender: TObject);
begin
  HorzScrollBar.Visible:=false;
  VertScrollBar.Visible:=false;
  with BtnPlay do
  begin
    Top:=FrmMain.Height-Height;
    Width:=(FrmMain.Width div 4);
    Left:=0;
  end;
  with BtnPause do
  begin
    Top:=FrmMain.Height-Height;
    Width:=(FrmMain.Width div 4);
    Left:=(FrmMain.Width div 4);
  end;
  with BtnStop do
  begin
    Top:=FrmMain.Height-Height;
    Width:=(FrmMain.Width div 4);
    Left:=(FrmMain.Width div 4)*3;
  end;
  with BtnPrevTrack do
  begin
    Top:=FrmMain.Height-Height;
    Width:=(FrmMain.Width div 8);
    Left:=(FrmMain.Width div 8)*4;
  end;
  with BtnNextTrack do
  begin
    Top:=FrmMain.Height-Height;
    Width:=(FrmMain.Width div 8);
    Left:=(FrmMain.Width div 8)*5;
  end;
  with LBTracks do
  begin
    Top:=1;
    Left:=1;
    Width:=(FrmMain.Width div 16)*7;
    Height:=FrmMain.Height-(BtnPlay.Height*2+3);
  end;
  with MTrackInfo do
  begin
    Top:=1;
    Left:=4+((FrmMain.Width div 16)*7);
    Height:=FrmMain.Height-(BtnPlay.Height*4+3);
    Width:=(FrmMain.Width-Left-1);
  end;
{...}
  HorzScrollBar.Visible:=false;
  VertScrollBar.Visible:=false;
end;

Der Fehler Tritt nicht bei jedem Resize auf...
Ich bin Ratloß, irgendetwas muss ja irgendwann über die Form hinweg wollen...

Findet ihr das?
[edit] im anhang die anordnung...[/edit]

Gruß Teekeks