TEdit Float

[Temurdounojo]

Pues tengo un TEdit, donde meten importes, tipo 1256,69 por ejemplo, el caso esque me estan metiendo 1256,69E para indicar que son euros, y no quiero que lo metan, y por mucho que lo digo lo siguen metiendo, el caso esque yo tengo la comprobación:

Código Delphi [-]
procedure TwPrincipal.PImporte_tarjExit(Sender: TObject);
begin
  try
    strtoFloat(trim(PImporte_tarj.text));
  except
    ShowMessage('Tiene que insertar un Importe (ejemplo 356,69)');
    PImporte_tarj.setfocus;
  end;
end;

y Me coje como si fuera un exponencial todos los numeros con E

ej:
59,7E
59,7E5
59,7E33

¿Como puedo hacer para que no lo hagan?

Se podría hacer con un onkeypress, pero ¿hay alguna forma mejor?