Creo que dandole un poco mas de vuelta a la tuerca, el codigo podria ser el mismo en los dos casos (sumar o restar), si añades una condicion y un valor al principio, por ejemplo:
Código Delphi
[-](...)
var SumaResta: Integer;
(...)
case ComboBox3.ItemIndex of
0: SumaResta := 1; 1: SumaResta := -1; end;
Edit4.Text := FloatToStr(StrToFloat(ComboBox4.Text) + (StrToFloat(ComboBox5.Text) * SumaResta));
Edit6.Text := FloatToStr(StrToFloat(ComboBox6.Text) + (StrToFloat(ComboBox7.Text) * SumaResta));
etc...
50 + (10 * 1) = 60
50 + (10 * -1) = 40
Salu2.