Delphi - 如何在TStringGrid中设置垂直滚动条,始终可见

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if ARow = StringGrid1.RowCount - 1 then
  begin
    StringGrid1.Canvas.Pen.Color := clBtnFace;
    StringGrid1.Canvas.Brush.Color := clBtnFace;
    StringGrid1.Canvas.Rectangle(Rect);
  end;
end;