Quizas estes haciendo algo mal, te tiene que dar cero si restas dos valores iguales.
checa este codigo
Código Delphi
[-]
var
a,b,r:Real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
r:=a-b;
Label3.Caption:='Resultado: '+FloatToStr(r);
end;
Salu2