滚动条拖动改变大小 delphi lazarus pascal

Question

object Form1: TForm1
  Left = 256
  Height = 240
  Top = 145
  Width = 320
  BorderStyle = bsNone
  Caption = 'Form1'
  ClientHeight = 240
  ClientWidth = 320
  LCLVersion = '2.2.4.0'
  object Memo1: TMemo
    Left = 0
    Height = 240
    Top = 0
    Width = 320
    Align = alClient
    Lines.Strings = (
      'Memo1'
    )
    TabOrder = 0
  end
end  

这个csdn.net无法上传图片，我改用链接吧，我程序图在下面的链接
https://img-blog.csdnimg.cn/img_convert/2623492098e04e017c3f7754a237c448.png
这是一个TDBGrid控件，后面是我写的控件，把MEMO写在单元格内，但无法放大缩小弹开的MEMO（这个MEMO放在一个TFORM窗体上）。

这是窗体文件，但不能拖动改变大小！
我想在memo的右下角2个滚动条出现后，在右下角的交叉位置可以拖动改变窗体大小（这个地方还要放图标，不然用户不知道这里还有个功能）

例如：
https://www.jianshu.com/p/e5c75954ad25