history.pas

unit History;

interface

uses
  SysUtils, Classes;
  
var
  LHistory: TStringList;

implementation

initialization
  LHistory := TStringList.Create;
  
finalization
  LHistory.Free;
  
end.