[deltas]

Вы используете Messages в Uses значит надо в исходниках messages.pas посмотреть коды сообщений и определять по номерам...
Например:

Код:

procedure TForm1.apponmessage(var msg: tmsg; var handled: boolean);
begin
Case msg.message of
$0101: form1.Memo1.Lines.Add('WM_KEYUP');
$0100: form1.Memo1.Lines.Add('WM_KEYDOWN');
end;
end;