[NumLock]

Код:

type
  TBaseClass = class
  public
    procedure SaveToFile(const FileName: string); virtual; abstract;
    procedure LoadFromFile(const FileName: string); virtual; abstract;
  end;