Sadece yukarı aşağı giden bu çok basit yılan oyunum yukarı aşağı gitmiyor bunu nasıl çözerim? 

var

MyForm : TclGameForm

kare : TClProButton

 void KeyDown

 {

   if (MyForm.clSenderKeyChar == 32)

   {

    kare.margins.top = 5

   }

   else if (MyForm.clSenderKeyChar == 119)

   {

     kare.margins.bottom = -5

   }

 }

 

 

void asagi

{

  kare.margins.top = 5

  

  kare.margins.bottom = -5

}

{

MyForm = TclGameForm.Create(Self);

  kare = MyForm.AddNewProButton(MyForm, 'kare', '')

  kare.Align = alCenter;

  kare.Width = 50;

  kare.Height = 60;

  kare.clProSettings.BorderColor = clAlphaColor.clHexToColor('#fabd2');

  kare.clProSettings.RoundHeight = 10;

  kare.clProSettings.RoundWidth = 10;

  kare.clProSettings.BorderWidth = 2;

  kare.clProSettings.IsFill = True; 

  kare.clProSettings.IsRound = True;

  kare.clProSettings.PictureSource = ' https://clomosy.com/demos/computerNetwork.png" rel="nofollow - https://clomosy.com/demos/computerNetwork.png ';

  kare.clProSettings.PictureAutoFit = True;

  kare.SetclProSettings(kare.clProSettings);

  

  MyForm.AddNewEvent(MyForm,tbeOnKeyDown,'KeyDown' )

  

  

  MyForm.run

}

Çok teşekkürler