Delphi 抓屏程序

1：我自己写了一个方法
GetScreen将屏幕抓下来保存取FBMP 位图中，前面四个参数是屏幕坐标
    try
    FBMP := TBitMap.Create;
    GetScreen(0, 0, Screen.Width, Screen.Height, FBMP);
    FBMP.SaveToFile('E:\a.bmp');    finally
    FBMP.FreeImage;
    FreeAndNil(FBMP);里面的参数，暂时是指定为全屏
但我想改进，进成QQ 里面的抓屏
现在有一个问题不明白。怎么像QQ一样，让屏幕暂时固定，
然后通过鼠标拖动，切割。得到鼠标的切割范围，然后再传到我的方法中
就是前面这一步不知道怎么处理
希望 DELPHI 高手们帮个忙，谢谢