OnChange com edit

Estou usando este código:
[color=red:968c4c2dbb]a := strtofloat (edit2.text);
e := strtofloat(edit1.text);
edit1.Text:=floattostrF(e,Fffixed,9,2);
i := a - e;
begin
edit3.text := floattostrF(i,Fffixed,9,2);
end;[/color:968c4c2dbb]
para subtrair o edit2 do edit1 e mostrar no edit3
O código dá certo mas quando vou zerar os edits no evento on show do form indica que o edit1 que é o desconto não é um numero float válido se alguen souber como resolver !!!!!!!