unit Base;

interface

uses
  Classes, SysUtils;

type
  TBaseEvent = procedure of object;
  TReadEvent = function (Address: Word): Byte of object;
  TWriteEvent = procedure (Address: Word; Data: Byte) of object;
  TMessageEvent = procedure (Text: string) of object;
  TAddressEvent = procedure (Address: Word) of object;


implementation

end.

