OnKeyPress de un TEdit

[luxus]

Hola tengo una pequeña duda que no sé porque ahora no me funciona.
Vamos a ver. Tengo un TEdit y en el evento OnKeyPress tengo el siguiente código fuente:

Código Delphi [-]
procedure TFAnadir.Edit2KeyPress(Sender: TObject; var Key: Char);
var
  uni,precio,sub: real;
begin
  if (key=#13) then
  begin
   showmessage('key press');
   uni:=StrToFloat(FAnadir.Edit2.Text);
   precio:=StrToFloat(FAnadir.Edit3.Text);
   sub:=uni*precio;
   FAnadir.Edit5.Text:=FloatToStr(sub);
  end;
end;

Cuando ejecuto la aplicación al introducir el nº de unidades y luego pulsar ENTER no sale nada.Es más, ni siquiera entra
en el bucle con lo que no me muestra el mensaje ('key press') que he puesto como verificación.
La verdad es que no sé donde está el error. A ver si con vuestra ayuda lo resuelvo.
Gracias

Editado por jhonny para colocar etiquetas Delphi