[Cesar82]

Originally Posted by Carldric Clement

almost but there is one thing was unknown type: TMsg;

type
  TMsg = record hWnd: HWND; message: LongWord; wParam: Longint; lParam: Longint; Time: LongWord; pt: TPoint; end;