SQL查询分析器外挂源码分享

本人写了一个SQL查询分析器扩展工具，功能类似Delphi的ToDo。可以方便开发者在大量的SQL脚本中快速找到每个模块、To-Do，从而提高开发高利率。
使用的时候先运行SQL查询分析器，然后运行本程序即可（可以工具|自定义中配置）。按F2显示To-Do List窗口，按Alt+F2在当前位置插入To-Do。
由于时间关系，本程序并未完善，在双击To-Do Item后应没有将光标定位到对应的位置，希望高手赐教，有兴趣的朋友不防继续完善它，并发一份源码给我。万分谢谢。（QQ：462400756）
{================================================================}
{  todo.dpr
{================================================================}
program todo;
{%ToDo 'todo.todo'}
uses
  Forms,
  windows,
  messages,
  tdmain in 'tdmain.pas' {frmToDoMain},
  tdcontainer in 'tdcontainer.pas' {frmContainer},
  tdItem in 'tdItem.pas' {frmItem},
  tdFilter in 'tdFilter.pas' {frmFilter};
{$R *.res}
var
  h: Hwnd;
begin
  Application.Initialize;
  h := FindWindow(nil, PChar('frmContainer'));
  if h = 0 then
  begin
    Application.CreateForm(TfrmContainer, frmContainer);
    Application.CreateForm(TfrmToDoMain, frmToDoMain);
    Application.CreateForm(TfrmItem, frmItem);
    Application.CreateForm(TfrmFilter, frmFilter);
    Application.ShowMainForm := False;
  end;
  h := FindWindow(nil, PChar('frmContainer'));
  SendMessage(h, WM_RERUN, 0, 0);
  Application.Run;
end.
{================================================================}
{  tdmain.pas
{================================================================}
unit tdmain;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, RegExpr, Tabs, Menus, StdCtrls, ImgList,
  Grids, ExtCtrls;
type
  TViewType = (vtTodo, vtModule);
  TGroupType = (gtOwner, gtCategory);
  TfrmToDoMain = class(TForm)