OnResize Form

procedure TForm1.FormResize(Sender: TObject);
begin
  With SB Do Begin
    Panels[0].Width:=Self.Width div 3;
    Panels[1].Width:=Self.Width div 3;
    Panels[2].Width:=Self.Width div 3;
  End;
end;