вставить кнопки в программу Делфи 7 (есть правильный код программы)

[программирование]

добрый вечер, уважаемые программисты. посмотрите, пожалуйста, на код программы и скажите - правильная она или нет. а также, пожалуйста, скажите: какие кнопки нужно поставить.

вот задание:
Создать проект, который имеет возможность проверять пароль при открытии формы, а также позволяет двигать (вариант 1-дом, вариант 2-машина) по форме в зависимости от нажатой клавиши (вверх, вниз, вправо, влево), а также наоборот исчезает при нажатии клавиши Delete и появляется при нажатии клавиши Insert.

вот код пароля при открытии формы:

unit unit4;
 interface
 uses
Forms,
 Dialogs, unit3;
  var
 Passwrd: String;
 implementation

Begin          // Запитуємо пароль:
if InputQuery ('Вікно введення пароля ' , ' Введіть пароль: ' , Passwrd)
then
if Passwrd = 'Delphi' then
begin // Все в порядку, пароль вірний
Application.CreateForm (Tform3, Form3);
Application.Run;
end else        begin
 ShowMessage ( 'Пароль не вірний! ' );
 exit;
end;
end.[/PHP]

вот код движения фигурки:
[PHP]unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
  TForm3 = class(TForm)
    PaintBox1: TPaintBox;
    procedure create(Sender: TObject);

    procedure Paint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    x,y:integer;
    procedure hook(var msg:tmsg; var handled:boolean);
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.create(Sender: TObject);
begin
 application.onmessage:=hook;
 x:=100;
 y:=100;
end;
 procedure tform3.hook(var msg:tmsg; var handled:boolean);
 begin
    if msg.message<>wm_keyDown  then exit;
    case msg.wParam of
    VK_RIGHT:  inc(x,10);
    vk_LEFT:DEC(X,10);
    VK_down:  inc(y,10);
    vk_up:DEC(y,10);
    end;
    paintbox1.Repaint;
    handled:=true;
 end;
procedure TForm3.Paint(Sender: TObject);
begin
    with paintbox1.Canvas do
    begin
       Pen.Color:=clgreen;
    Pen.Width:=5;
      rectangle(x-10,y-10,x+10,y+10);
       Pen.Width:=1;
      brush.Color:=clRed;
      ellipse(0,0,x,y);
      textout(x+50,y+100,'House');
      pixels[x,y]:=clyellow;
    end;
     paintbox1.Canvas.Pen.Color:=clgreen;
     paintbox1.Canvas.Pen.Width:=2;
     paintbox1.Canvas.MoveTo(x-10,y-10);
    paintbox1.Canvas.LineTo(x+10,y+10) ;
    //paintbox1.Canvas.MoveTo(x-10,y-10);
    paintbox1.Canvas.LineTo(x+30,y-10) ;
end;
end.

скажите, пожалуйста, какие кнопки мне нужно вставить в программу (коды поданы выше).

заранее огромное спасибо всем за помощь!