Модуль: System

Описание
Функция возвращает значение, предшествующее значению аргумента Х. Аргумент должен иметь перечислимый тип (допускается Int64).

Пример
var
  S: string;
begin
  S:= 'Число 25 следует за числом ' + IntTostr( Pred(25)) + #13;
  S:= S + 'Буква Д стоит в алфавите после буквы ' + Pred( 'Д' );
  MessageDlg( S, mtInformation, [mbOk], 0);
end;