[PanAm]

я не гуру, но вроде тут

interface
........
var
  ShowMessageOld: procedure (const Msg: string);
........
implementation
........
//скрываем сообщение от FastScript об том, что его желательно купить
procedure ShowMessageNew(const Msg: string);
begin
  if Msg<>'Unregistered version of FastScript.' then
    ShowMessageOld(Msg);
end;
.............
procedure TL2PacketHackMain.FormCreate(Sender: TObject);
.............
  HookCode(@ShowMessage,@ShowMessageNew,@ShowMessageOld);