TMidiTrack

type TMidiTrack = class(TObject)

protected

  FEvents: TList;

  FName: string;

  FInstrument: string;

  FCurrentTime: Integer;

  FCurrentPos: Integer;

  FReady: Boolean;

  FTrackLenght: Integer;

  FOnMidiEvent: TOnMidiEvent;

  FOnTrackReady: TEvent;

  procedure CheckReady;

  function GetEventCount;

  function GetTrackLength;

public

  constructor Create;

  destructor Destroy; override;

  procedure Rewind();

  procedure PlayUntil();

  procedure GoUntil();

  procedure PutEvent();

  function GetEvent();

  property Name: string; [r]

  property Instrument: string; [r]

  property EventCount: Integer; [r]

  property CurrentTime: Integer; [r]

  property TrackLength: Integer; [r]

  property IsReady: Boolean; [r]

  property OnMidiEvent: TOnMidiEvent; [rw]

  property OnTrackReady: TEvent; [rw]

end;

TMidiTrack

TObject