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!!