[NumLock]

ну реализация нужна:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type

TKeyWord  = class
    KeyWord     : string;
    RequestCnt  : integer;
    Checked     : boolean;
  end;

   TKeyWordList  = class(TList)
    MaxCount    : integer;
    UseMaxCount : boolean;
    function AddKeyWord(KW : TKeyWord) : boolean;
    procedure MakeKeyCheked(KW : string);
    function CountNotChecked : integer;
    function FindNextNotCheckedKeyWord : string;
    constructor Create;
  public
    procedure FreeInstance; override;
  end;

  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TKeyWordList }

function TKeyWordList.AddKeyWord(KW: TKeyWord): boolean;
begin

end;

function TKeyWordList.CountNotChecked: integer;
begin

end;

constructor TKeyWordList.Create;
begin

end;

function TKeyWordList.FindNextNotCheckedKeyWord: string;
begin

end;

procedure TKeyWordList.FreeInstance;
begin
  inherited;

end;

procedure TKeyWordList.MakeKeyCheked(KW: string);
begin

end;

end.

ctrl+shift+c чтобы руками не писать