var
cena, procento: Integer;
begin
cena := StrToIntDef(Edit1.text, -1);
procento := StrToIntDef(Edit2.Text, -1);
if (cena = -1) or (procento = -1) then
Label1.Caption := 'chybné zadání'
else
Label1.Caption := FormatFloat('0.00', cena/100*procento);
end;
Tam byla v tom Label místo label1