[fpc-pascal]api win32

[Luis Del Aguila]

Hola a todos.
Yo queria hacer algo similar, pero es muy dificil implementarlo.
Necesito ayuda, yo quiero saber si hay algun libro que enseñe como hacerlo
Hay algun "mailing list" de freepascal en español.

Gracias

Hi, all

I would like something similar to this, but  it is very dificult 
implementation.
I need help or you know a book or tutorial, what  to show how make this?


thanks

example :

FUNCTION  WindowProc(Window: HWnd; Menssage, WParam,LParam: 
Longint):Longint;stdcall;export;
BEGIN
       Case Mensaje of
                  WM_LBUTTONUP :
                                    Begin
                                         
MyWindow.MessageLButtonUp(Window,Message,Wparam,lparam);                
                                     End;
                      WM_CLOSE     : Begin
                                         
MyWindow.MessageClose(Window,Message,Wparam,lparam) ;               
                                     End;             
                      WM_PAINT     : Begin
                                         
MyWindow.MessagePaint(Window,Message,Wparam,lparam) ;               
                                     End;                
                    End;
  ProcVentana := DefWindowProc(Ventana,Mensaje,WParam,LParam);
END;  

En donde  :

Type
     TEvento = PROCEDURE (Ventana: HWnd; Mensaje,WParam,LParam:Longint) 
of Object;

     TWindow = class
                              MessageLButtonUp:TEvento;
                              MessageClose : TEvento;
                              .
                              ..
                              ...
       End,
 Var MyWindow : TWindow;

etc.