TMessages = class

procedure Add(const Text: String; Color: Integer = -1);

procedure Clear;

function Count: Integer;

function GetMessage(Index: Integer): THistoryMessage;

property MaxCount: Integer read fMaxCount write fMaxCount;