[NumLock]

1 км = 1,024 м

делим целочисленно 2450 на 1000 получаем 2 км, вычисляем остаток от деления получаем 450 м.

Код:

ShowMessage(IntToStr(2450 div 1000)+'км');
ShowMessage(IntToStr(2450 mod 1000)+'м');