pregunta sencilla

[ctronx]

lo de las constantes es bueno , pero cuando las quiero utilizar en una aplicacion clx no funciona por eso uso

Código Delphi [-]
procedure Tfrmventas.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var I:integer;
begin
if Key=4100 begin
//codigo

es esto correcto, ó hay otra forma?