[@Rafa3L]

Сообщение от Карина45

Организовать управление движением объектов курсорными клавишами по вертикали, по горизонтали и по диагоналям.

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 case Key of
  38: Shape1.Top:= Shape1.Top -1;
  40: Shape1.Top:= Shape1.Top +1;
  37: Shape1.Left:=Shape1.Left-1;
  39: Shape1.Left:=Shape1.Left+1;
  35: begin Shape1.Top:= Shape1.Top +1; Shape1.Left:=Shape1.Left-1; end;
  33: begin Shape1.Top:= Shape1.Top -1; Shape1.Left:=Shape1.Left+1; end;
  36: begin Shape1.Left:=Shape1.Left-1; Shape1.Top:= Shape1.Top -1; end;
  34: begin Shape1.Left:=Shape1.Left+1; Shape1.Top:= Shape1.Top +1; end;
 end;
end;