[sariman]

Здравствуйте форумчане! Возник такой вопрос, как изменить окончание слова "файл, файла, файлов" за счет их количества?
Вот что у меня получается:

Код:

function CountFiles(Col: Integer): string;
var
  Count: String;
  LastNumber: Integer;
begin
  Count := IntToStr(Col);
  LastNumber := StrToInt(Count[Length(Count)]);
    if LastNumber = 0 then
      Result := Col + ' файлов'
    else
      if LastNumber = 1 then
        Result := Col + ' файл'
      else
        if LastNumber in [2..4] then
          Result := Col + ' файла'
        else
          if LastNumber in [5..9] then
            Result := Col + ' файлов';
end;

Однако, проблема в том, что если будет диапазон от 11 до 14, у меня написано будет файл и файла, потому что я использую только последнюю цифру, я в строках не очень силен, поэтому прошу помощи, заранее спасибо.