var

  MyForm : TclGameForm;

  kare : TClProButton;

  SagBtn, SolBtn, YukariBtn, AsagiBtn : TclProButton;

  GameTimer : TClTimer;

  yon : Integer; // 1:Yukarı, 2:Aşağı, 3:Sol, 4:Sağ

// YÖN DEĞİŞTİRME BUTONLARI

void GitYukari; { yon = 1; }

void GitAsagi;  { yon = 2; }

void GitSol;    { yon = 3; }

void GitSag;    { yon = 4; }

void YilanHareketEt;

var

  yeniX, yeniY : Single;

{

  yeniX = kare.Position.X;

  yeniY = kare.Position.Y;

  if (yon == 1)      { yeniY = yeniY - 20; }

  else if (yon == 2) { yeniY = yeniY + 20; }

  else if (yon == 3) { yeniX = yeniX - 20; }

  else if (yon == 4) { yeniX = yeniX + 20; }

  

  if ((yeniX < 80) || (yeniX + kare.Width > TForm(MyForm).ClientWidth - 80) || 

      (yeniY < 60) || (yeniY + kare.Height > TForm(MyForm).ClientHeight - 60))

  {

    GameTimer.Enabled = False; // Çarptığı an zamanlayıcıyı (oyunu) durdur

    ShowMessage('Duvara Çarptın! OYUN BİTTİ.');

  }

  else

  {

    kare.Position.X = yeniX;

    kare.Position.Y = yeniY;

  }

}

// ANA KOD VE TASARIM

{

  MyForm = TclGameForm.Create(Self);

  yon = 2; 

  MyForm.clsetWindowState(fwsMaximized)

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

  kare.Align = alNone;

  kare.Position.X = 150;

  kare.Position.Y = 250;

  kare.Width = 40;

  kare.Height = 40;

  kare.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#22c55e');

  kare.clProSettings.IsRound = True;

  kare.clProSettings.RoundHeight = 10;

  kare.clProSettings.RoundWidth = 10;

  kare.SetclProSettings(kare.clProSettings);

  YukariBtn = MyForm.AddNewProButton(MyForm, 'YukariBtn', 'YUKARI');

  YukariBtn.Align = alTop; YukariBtn.Height = 60;

  MyForm.AddNewEvent(YukariBtn, tbeOnClick, 'GitYukari');

  AsagiBtn = MyForm.AddNewProButton(MyForm, 'AsagiBtn', 'AŞAĞI');

  AsagiBtn.Align = alBottom; AsagiBtn.Height = 60;

  MyForm.AddNewEvent(AsagiBtn, tbeOnClick, 'GitAsagi');

  SolBtn = MyForm.AddNewProButton(MyForm, 'SolBtn', 'SOL');

  SolBtn.Align = alLeft; SolBtn.Width = 80;

  MyForm.AddNewEvent(SolBtn, tbeOnClick, 'GitSol');

  SagBtn = MyForm.AddNewProButton(MyForm, 'SagBtn', 'SAĞ');

  SagBtn.Align = alRight; SagBtn.Width = 80;

  MyForm.AddNewEvent(SagBtn, tbeOnClick, 'GitSag');

  GameTimer = MyForm.AddNewTimer(MyForm, 'GameTimer', 100);

  GameTimer.Enabled = True;

  MyForm.AddNewEvent(GameTimer, tbeOnTimer, 'YilanHareketEt');

  MyForm.Run;

}


bu kodu çalıştırıp dener misin? 
ClsenderKeyChar ile tekrar bir araştırma yapıyorum. Bu yöntem de farklı bir yöntem 

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';

  kare.clProSettings.PictureAutoFit = True;

  kare.SetclProSettings(kare.clProSettings);

  

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

  

  

  MyForm.run

}

Çok teşekkürler