эмуляции запущенной IDE Delphi + Debug

[beegl]

Приветствую, ниже Модуль для эмуляции запущенной IDE Delphi7, помогите пожалуйста его доделать, чтоб эмулировал запущенный IDE Delphi + Debug.

Пример использования модуля:

unit EmulRunDelphi;
     interface
uses
    Windows, Messages;
procedure ShutDown;
function WindowProc(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall;
procedure Emulator;
var
   wClass,wclass2,wclass3,wclass4:TWndClass;
   hInst:HWND;
   Msg:TMSG;
implementation
procedure ShutDown;
begin
     UnRegisterClass('TAppBuilder',hInst);
     UnRegisterClass('TApplication',hInst);
     UnRegisterClass('TPropertyInspector',hInst);
     UnRegisterClass('TAlignPalette',hInst);
     ExitProcess(hInst);
end;
function WindowProc(hWnd,Msg,wParam,lParam:Longint):Longint; stdcall;
begin
     Result:=DefWindowProc(hWnd,Msg,wParam,lParam);
end;
procedure Emulator;
begin
     hInst:=GetModuleHandle(nil);
with wClass do
begin
     Style := 0;
     hIcon := LoadIcon(hInst,'MAINICON');
     lpfnWndProc := @WindowProc;
     hInstance := hInst;
     hbrBackground := COLOR_BTNFACE+1;
     lpszClassName := 'TAppBuilder';
     hCursor := LoadCursor(0,IDC_ARROW);
end;
with wClass2 do
begin
     Style := 0;
     hIcon := LoadIcon(hInst,'MAINICON');
     lpfnWndProc := @WindowProc;
     hInstance := hInst;
     hbrBackground := COLOR_BTNFACE+1;
     lpszClassName := 'TApplication';
     hCursor := LoadCursor(0,IDC_ARROW);
end;
with wClass3 do
begin
     Style := 0;
     hIcon := LoadIcon(hInst,'MAINICON');
     lpfnWndProc := @WindowProc;
     hInstance := hInst;
     hbrBackground := COLOR_BTNFACE+1;
     lpszClassName := 'TAlignPalette';
     hCursor := LoadCursor(0,IDC_ARROW);
end;
with wClass4 do
begin
     Style := 0;
     hIcon := LoadIcon(hInst,'MAINICON');
     lpfnWndProc := @WindowProc;
     hInstance := hInst;
     hbrBackground := COLOR_BTNFACE+1;
     lpszClassName := 'TPropertyInspector';
     hCursor := LoadCursor(0,IDC_ARROW);
end;
   RegisterClass(wClass);
   RegisterClass(wClass2);
   RegisterClass(wClass3);
   RegisterClass(wClass4);
   CreateWindow('TAppBuilder','Delphi 7',WS_POPUP,-1,-1,0,0,0,0,hInst,nil);
   CreateWindow('TApplication','Delphi 7',WS_POPUP,-1,-1,0,0,0,0,hInst,nil);
   CreateWindow('TAlignPalette','Delphi 7',WS_POPUP,-1,-1,0,0,0,0,hInst,nil);
   CreateWindow('TPropertyInspector','Delphi 7',WS_POPUP,-1,-1,0,0,0,0,hInst,nil);
end;
initialization
   Emulator
finalization
   ShutDown
end.