Delphi DBGrid Убрать полосы прокрутки

TDBGrid = class(DBGrids.TDBGrid)
public
  HorzScroll: boolean; 
  constructor Create(AOwner:TComponent); override;
protected
  procedure Paint; override;
end;
 
implementation
 
constructor TDBGrid.Create(AOwner: TComponent);
begin
  HorzScroll:=false;
  inherited;
end;
 
procedure TDBGrid.Paint;
begin
  if not HorzScroll then ShowScrollBar(Handle, SB_HORZ, False); // убираем горизонтальный скролл бар
  inherited;
end;

procedure AntiMarginRightDisplayFull(c: TControl; offset: integer); 
// Данная процедура автоматически растягивает любой компонент на Панели, 
//таким образом что правая часть уходит за рамку на offset пикселей
begin
  if c.Parent is TPanel then begin
    c.Height:=c.Parent.Height;
    c.Width:=c.Parent.Width+offset;
  end;
end;
 
// использование
 
procedure TForm1.Form1Show(Sender: TObject);
begin
    // задаем начальное положение
    AntiMarginRightDisplayFull(DbGrid1,30); // примерно 30
end;
 
procedure TForm1.Panel1Resize(Sender: TObject);
// событие Panel.OnResize
begin
  AntiMarginRightDisplayFull(DbGrid1,30); // примерно 30
end;