peekmessage apisinin user32.dll deki tam karşılığı = function PeekMessage(var lpMsg: TMsg; hWnd: HWND;
  wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; stdcall;
********************************************************************************************************
apiye hook atmak için nette bi ton döküman bulabilirsiniz. ben size kısa örnek vericek gerisi sizin becerinize kalmış..

hook atılacak api oncelikle (değişken) olarak tanımlanır...

************
var
peekmessagehook : function (var lpMsg: TMsg; hWnd: HWND;
  wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; stdcall;
************

sonra peek message client tarafından çağrıldıgında işlenecek kod bloğu yazılır...

**************
function PeekMessageproc(var lpMsg: TMsg; hWnd: HWND;
  wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; stdcall;
begin
sleep(5); //sleep 5 yada 10 değeri yeterlidir. fazlası clienti dondurur !!!
result:=peekmessagehook(lpmsg,hwnd,wMsgFilterMin,wMsgFilterMax,wRemoveMsg); //burada ise clientteki peekmessage'nin işlemesine devam et dedik. bunu demesek client hata verecektir.
**************

geriye kaldı apimizi hooklamaya nette bi ton kod vardır ben sadece kullanımı aktarıcam...

*******************
apihook('user32.dll','PeekMessageA',@peekmessagehook,@peekmessageproc);
*******************

PeekMessageA - peekmessage apisi peekmessagea diye geçmektedir user32.dll de ve peekmessagew apiside vardır buda unicode karakterlerde kullanılır.