if Edit1.Text = '' then
    suder := 0.0
else
    suder := StrtoFloat(Edit1.Text);