Error Exception EAccessViolation

[Bant]

Perdon estaba pensando en ponerlo xDD

Código Delphi [-]
procedure ControlarEventos;
begin
if Teclado.bDerecha and (Heroe.x < 545 ) then
Inc( Heroe.x);

if Teclado.bIzquierda and ( Heroe.x > 0 ) then
Dec(Heroe.x);

if Teclado.bArriba and ( Heroe.y > 0) then
Dec(Heroe.y);

if Teclado.bAbajo and ( Heroe.y < 407 ) then
Inc (Heroe.y);

end;

Igual que en todo el programa la variable Teclado es de tipo TTeclado que viene siendo una class creada!!