Склонение слова

procedure TMAIN.Edit1Change(Sender: TObject);
begin
if (Edit1.Text = '1') or (Edit1.Text = '21') then
Label2.Caption:='лист';
end;

function WordsToStr(const ACount: DWORD): string;
begin
  Result:= IntToStr(ACount);
  case ACount mod 100 of
    11..14: Result:= Result + ' слов';
  else case ACount mod 10 of
         1:    Result:= Result + ' слово';
         2..4: Result:= Result + ' слова';
       else    Result:= Result + ' слов';
       end; //case
  end; // case
end;

uses SysUtils;
...
var
   CntWords: Integer;
...
   If not TryStrToInt(Edit1.Text, Abs(CntWords)) then exit;
 
   Label2.Caption := WordsToStr(CntWords);

function PagesToStr(const ACount: DWORD): string;
begin
  Result:= IntToStr(ACount);
  case ACount mod 100 of
    11..14: Result:= Result + ' листов';
  else case ACount mod 10 of
         1:    Result:= Result + ' лист';
         2..4: Result:= Result + ' листа';
       else    Result:= Result + ' листов';
       end; //case
  end; // case
end;
 
procedure Edit1Change(Sender: TObject);
var
  pages: int32;
begin
  if TryStrToInt(Edit1.Text, pages)
    then Label1.Caption:= PageToStr(pages)
    else Label1.Caption:= '';
end;