[[Caral]]

Hola a todos
Bueno aqui molestando, tengo una pequeña consulta.
Tengo esto:

Código Delphi [-]
if ComboBox3.Text = 'Sumar' Then
 Edit4.Text := FloatToStr(StrToFloat(ComboBox4.Text) + StrToFloat(ComboBox5.Text));
 If Edit3.Text <> Edit4.Text Then
 begin
 Label4.Color:= CLRed;
 Label4.Caption:= 'X';
 end else
 begin
 Label4.Color:= CLLime;
 Label4.Caption:= 'OK';
  end;

if ComboBox3.Text = 'Restar' Then
 Edit4.Text := FloatToStr(StrToFloat(ComboBox4.Text) + StrToFloat(ComboBox5.Text));
 If Edit3.Text <> Edit4.Text Then
 begin
 Label4.Color:= CLRed;
 Label4.Caption:= 'X';
 end else
 begin
 Label4.Color:= CLLime;
 Label4.Caption:= 'OK';
  end;

Las dos sentencias son iguales, Sumar y Restar, pero quiero saber si se puedo hacer algo como esto, de alguna forma?

Código Delphi [-]
if ComboBox3.Text = 'Sumar' or 'Restar' Then
 Edit4.Text := FloatToStr(StrToFloat(ComboBox4.Text) + StrToFloat(ComboBox5.Text));
 If Edit3.Text <> Edit4.Text Then
 begin
 Label4.Color:= CLRed;
 Label4.Caption:= 'X';
 end else
 begin
 Label4.Color:= CLLime;
 Label4.Caption:= 'OK';
  end;

Asi por supuesto no me funciona, como podria hacerlo ?
Saludos y gracias de antemano