restar o sumar 2 dbedits.text

[[Caral]]

Hola
No se la necesidad de la variable, pero:

Código Delphi [-]
Var a: String;
begin
if dbedit4.text < dbedit10.text then
begin
a:= FloatToStr(StrToFloat(dbedit10.text) - StrToFloat(dbedit4.text));
dbedit5.text:= a;
end;
end;

Otro directo:

Código Delphi [-]
if dbedit4.text < dbedit10.text then
begin
dbedit5.text:= FloatToStr(StrToFloat(dbedit10.text) - StrToFloat(dbedit4.text));
end;

Saludos