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