I'm trying to code a programme that allows a librarian to receive the data from user through input procedures and componen.it must show user the cost

Question

Var cnb1,spinedit:integer 
Cnb1:= strtoint(\'cnb1.text\')
Spinedit:=(\'spinedit.text\')
 Case rb1.Itemimdex of
0:spinedit * if(spinedit<10)2.50
(Else spinedit * 3