n_p:=0;
panel_l_sum:=0;
try
 for i1:=0 to fmplangraf.ComponentCount-1 do
  begin
   if (fmplangraf.Components[i1] is TPanel) then
    begin
    //(fmplangraf.Components[i1] as TPanel).Parent:=ScrollBox1;
    (fmplangraf.Components[i1] as TPanel).BorderStyle:=bsNone;
    (fmplangraf.Components[i1] as TPanel).Top:=12;
    (fmplangraf.Components[i1] as TPanel).Width:=DBGridEh1.Columns[n_p].Width;
     n_p:=n_p+1;
    (fmplangraf.Components[i1] as TPanel).Left:=panel_l_sum+14-ScrollBox1.HorzScrollBar.Position;
     panel_l_sum:=panel_l_sum+(fmplangraf.Components[i1] as TPanel).Width;
    (fmplangraf.Components[i1] as TPanel).Caption:='left='+inttostr((fmplangraf.Components[i1] as TPanel).Left)+' Width='+inttostr((fmplangraf.Components[i1] as TPanel).Width)
    end;
  end;
 DBGridEh1.Width:=panel_l_sum+38;
 except
  end;