Suma de datos sin eliminar ceros

[[Caral]]

Hola

Código Delphi [-]
var a :Real;
     b :String;
begin
   b := FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text));
   a:= StrToFloat(b);
   Label1.Caption := FormatFloat('###.00', a);
end;

Saludos