Przesuwanie formularza klawiszami strzałek

Aby przesuwać formularz klawiszami strzałek należy utworzyć zdarzenie OnKeyDown dla formularza i umieścić w nim następujące instrukcje:

Unit1.cpp

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
   KeyPreview = true;
   switch (Key)
   {
      case VK_LEFT:  Left--; break;
      case VK_RIGHT: Left++; break;
      case VK_UP:    Top--;  break;
      case VK_DOWN:  Top++;  break;
   }
}