[The Shadow]

создать кнопку

Код:

Button:=CreateWindow('Button', 'Заголовок кнопки', WS_CHILD or SS_CENTER or WS_VISIBLE, левая координата, верхняя, ширина, высота, HWND родителя (TaskBar), 0, HInstance, nil);

свой обработчик сообщений

Код:

var
  OldButtonWindowProc: Pointer;

function ButtonWindowProc(Handle: THandle;
  Msg, wParam, lParam: LongInt): LongInt; stdcall;
begin
  case Msg of
  //Обрабатываем нужные сообщения
  end;
  Result:=CallWindowProc(OldButtonWindowProc, Handle, Msg, wParam, lParam);
end;

...

  OldButtonWindowProc:=Pointer(SetWindowLong(Button, GWL_WNDPROC, LongInt(@ButtonWindowProc)));