procedure TForm1.Button1Click(Sender: TObject);
var cena, procento, vydelek: Float;
begin
cena := StrToIntDef(Edit1.text, -1);
procento := StrToIntDef(Edit2.Text, -1);
vydelek := StrToIntDef(Edit3.Text, -1);
if (cena = -1) or (procento = -1)
then Label1.Caption := 'chybné zadání'
else
Label1.Caption := FormatFloat('0.00kč', (cena/100)*procento+10+cena+vydelek);
end;