Delphi - Omitir caracteres al leeer un código de barras

Buenos días.
Este es el código que generé para leer el código de barras menos dos caracteres, pero aun me pone un problema.
mCedula:=FloatToStr(StrToFloat(Copy(Trim(Ed_Estudiante.text),3,lenght()-2)));
Esto está en el Onkeypress del edit.
Si alguién sabe que me falta por favor digamelo.
Gracias!!

En principio la lectura de un codigo de barras es transparente para un TEdit, ya que suele ser una emulación del teclado (imagino que utilizas este tipo) y por tanto solo tienes que configurar el lapiz o pistola o el equipo de laser que uses, para que no envie ciertos caracteres. por ejemplo si el tipo de codigo de barras es el 3of9 que tiene el asterisco "*" como caracter de inicio y fin, estos son eliminados automaticamente al ser leidos por el lapiz optico, con lo cual, tu no debes hacer nada para transformar lo enviado al bufer del teclado.
Generalmente el manual del lector optico incluye multitud de configuraciones posibles, entre las que se suelen incluir la eliminación automatica de caracteres o la configuración personalizada de esos caracteres de inicio y fin. Sin embargo cualquier otra necesidad una vez traspasado al TEdit, es personalizar el dato capturado, y aqui no se como ayudarte.

Otra cosa, el evento onkeypress hará que envie al TEdit otro caracter.
No será este el que está molestando.
Cual es el problema que te está dando...

Tambien la funcion Trim elimina los espacios y los caracteres de control de una cadena, pruebala a ver si te sirve..