unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TTanksObject = class
    MyTank: TImage;

    constructor create(X: Integer; Y: Integer; Width: Integer; Height: Integer; FileName: string; Container: TWinControl);
  end;

  TMyTank = class(TTanksObject)
    procedure MoreUp;
    procedure MoreDown;
  end;

var
  Form1: TForm1;
  MyTa: TMyTank;

implementation

{$R *.dfm}

{TTanksObject}

constructor TTanksObject.create(X: Integer; Y: Integer; Width: Integer; Height: Integer; FileName: string; Container: TWinControl);
begin
MyTank:=TImage.Create(container);
MyTank.Parent := container;

MyTank.Left := X;
MyTank.Top := Y;

MyTank.Width := Width;
MyTank.Height := Height;

MyTank.Picture.LoadFromFile('pictures/'+FileName);
end;

{TMyTanks}

procedure TMyTank.MoreUp;
begin
MyTank.Top:=MyTank.Top-3;
end;

procedure TMyTank.MoreDown;
begin
MyTank.Top:=MyTank.Top+3;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
TTanksObject.create(form1.Width div 2 - 35, 400, 70, 71, 'MyTank.png', form1);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
  if Key = VK_UP then MyTa.MoreUp;
  if Key = VK_DOWN then MyTa.MoreDown;
end;

end.