Problemas con el onKeyDown de un Mask Edit

[luigi_cr]

Buenas,

Mi problema es el siguiente: Tengo un MaskEdit que solo acepta número y un maximo de 12 digitos, ok, lo que sucede es que kiero atrapar la tecla enter en el evento onKeyDown, y verificar que no este en blanco y si lo esta que ponga un 0, lo hice de la siguiente manera:

Código Delphi [-]
procedure TfrmElFrom.txtElMaskEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
   strTemp : String;
begin
     if IntToStr(Key) = '13' then
     begin
       strTemp := txtElMaskEdit.Text;
       strTemp := Trim(strTemp);
       if strTemp = '' then
          begin
               txtElMaskEdit.Text := '0';
          end;
      end;
end;

El evento me funciono a la perfeccion, utilice la variable strTemp (mala practica) pq el txtElMaskEdit cuando le aplicada el trim no funcionaba?????, dejaba el txtElMaskEdit igual....

Bueno, despues hice una modificación:

Código Delphi [-]
if strTemp = '' then
   begin
        txtElMaskEdit.Text := '0';
   end;
btnElBoton.setFocus;

y Hay empezaron los problemas...

comenzo a darme el siguiente error:
[IMG]file:///C:/Windows/Temp/moz-screenshot.jpg[/IMG]
me sale un cuadro de mensaje diciendo:


projec bla bla raised execption class EConvertError with message ''' is not value integer value'

OK lo cambio a como me funciono, y lo ejecuto de nuevo y sorpresa el mismo error..


Gracias por la ayuda