[friz]

LoL
тебе же прога сама пишет что then найден а нужен аргумент:

Код:

if LabeledEdit1.Text<> //не равно чему?? 
then A:=StrToFloatLabeledEdit1.Text)

Скорее всего должно быть так:

Код:

if LabeledEdit1.Text<>'' 
then A:=StrToFloatLabeledEdit1.Text)