DirectInput is wierd

[Summers Gone]

[pascal]const DefinedConstant : Cardinal = 2123;
{or const DefinedConstant = 2123; }
var DIAction : TDIAction;
begin
DIAction.uAppData := Pointer(DefinedConstant);
end;[/pascal]

This Syntax Highlighting Colors are a Joke !