Или Round(Int(X))+1, поскольку иногда 5.999999999...+0.5 может дать больше 6.5 и чуть более (в зависимости от конкретных примененных вещественных типов), что уже даст 7 а не 6!!!

Round(1.05+0.4) = 1,
так что
Round(Int(X)) + 1 [ДАЖЕ не Round(Int(X + 1))!!!] - единственный правильный вариант!!!
Вернее, действительно, простого решения не будет, поскольку эта формула будет страдать на значениях, близких к целым, равно как и в первом ответе, в третьем предложении здорово указан недостаток 1-го и 2-го ответов, однако в целом вариант однозначно не совсем подходит, извини.

Хороший выход остается только если известно кол-во десятичных знаков после запятой обрабатываемых чисел (N) или удовлетворительное значение этого числа, в этом случае X2 := Round(X*10^N) и вперед к однозначности, Y := X2 div 10^N + 1.

Оккей,
1) trunc(X)=round(int(X)), сглупил, но это ничего не меняет.
2) trunc(X) и int(X) отличаются типом результата, (здесь это очень важно, абсолютно(!!!), поскольку не всегда, например, 123456789 <> 123456789.0 (можно найти такие пары)) а по вопросу видно, что человеку скорее всего нужно целое число...
3) насчет бреда (обидно, даже если это правда), уважаемый alex_k, я же поправился, если известно кол-во десятичных знаков...
Y := Round(X*10^N) div 10^N + 1, хотя действительно, еще бред, тот же самый эффект на "стыке", так что без условия не обойтись.
4) oleg_e! - это вариант!
type
TOneReal=double;
function MyRound(a: tonereal): integer;
var
b: tonereal; //поскольку не всегда, например, 123456789 <> 123456789.0
// a и b должны быть одного типа!!!
begin
b:= int(a); //нельзя использовать trunc
if a <> b then b := b + 1;
Result := Round(b)
end;
5) для целочисленного деления - предыдущий ответ!!!