[mantikora]

еще хотел бы узнать как ограничить тип real, имеется в виду как по другому задать этот тип

Код:

type
  T10 = 0..10;

чтобы при этом работала функция

Код:

ppv0:=strtofloat(edit1.text);

потому что логично что при таком переводе выдает:Incompatible types: 'T10' and 'Extended'

т.е. весь диапазаон чисел от 0 до 10, включая 5,1 , 0,2 и т.д.