Перемещение Shape стрелками на клавиатуре - Free Pascal

Формулировка задачи:

Здравствуйте! Помогите пожалуйста. У меня код на процедуру передвижения Shape по экрану (в приложении) с помощью стрелок на клавиатуре

                    Листинг программы
                
 
                        
                          
                    
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState;)
begin
if Key = VK_RIGHT then
Shape1.Left := Shape1.left+2 // перемещаем вправо
if Key = VK_LEFT then
Shape1.left := Shape1.left-2; // перемещаем влево
if Key = VK_DOWN then
Shape1.Top := Shape1.Top+2; // перемещаем вверх
if Key = VK_UP then
Shape1.Top := Shape1.Top-2;  // перемещаем вниз
end;

Выдает ошибку Error: method identifier expected на строку

                    Листинг программы
                
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState;)

Решение задачи: «Перемещение Shape стрелками на клавиатуре»

Листинг программы

type
 
  { TForm1 }
 
TForm1 = class(TForm)
    Shape1: TShape;
    procedure FormKeyDown(Sender: TObject);

Объяснение кода листинга программы

Объявление переменной Shape1 типа TShape
Реализация обработчика события KeyDown для формы с именем FormKeyDown
Вызов метода Shape1.Load в конструкторе формы после ее создания, чтобы загрузить изображение формы из файла