[Uniq!]

Сообщение от anghela

не совсем понятно, что вы имели ввиду. В том месте, куда вы предлагаете поставить end он не нужен. Расчетная часть выполняется правильно, не выводится только текст

begin не уследили:

Код:

if (CB_perevod_v.Text='Доллар') then 
begin
     rez:=sum/dol;
     Label24.Caption:=FloatToStr(rez) + ' доллара';
end;