Doodle jump в Delphi

[bmw7501991]

ПОМОГИТЕ ПЖ , кто может вот код нужно дописать , а я хз как вообще . Запутался

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, PngImage, StdCtrls;



type
  TForm3 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;
  type
  point=record
  x,y : integer ;
  end;

var
x,y,i,h: integer ;
left, right: integer ;
vx, vy: real ;
prov : Boolean;
BkGnd : TBitmap;
platforms: array [1..20] of point ;


  Form3: TForm3;
  
implementation

{$R *.dfm}




procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
VK_Left:if Image2.Left>=5 then Image2.Left:=Image2.Left-5;
VK_Right:if Image2.Left+Image2.Width+5<=ClientWidth
then Image2.Left:=Image2.Left+5;
VK_Up:if Image2.Top>=5 then Image2.Top:=Image2.Top-5;
VK_Down:if Image2.Top+Image2.Height+5<=ClientHeight
then Image2.Top:=Image2.Top+5;
end;
end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор