[angvelem]

Чем case не устраивает?

Код:

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