unit Unit2;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Effects,
  FMX.Types3D, FMX.Objects3D, FMX.Objects, FMX.Layouts, FMX.Memo,
  FMX.Filter.Effects;
 
type
  TForm2 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Memo1: TMemo;
    Label1: TLabel;
    Timer1: TTimer;
    Image1: TImage;
    ColorKeyAlphaEffect1: TColorKeyAlphaEffect;
    Image2: TImage;
    ShadowEffect1: TShadowEffect;
    ShadowEffect2: TShadowEffect;
    ShadowEffect3: TShadowEffect;
    ShadowEffect4: TShadowEffect;
    ColorKeyAlphaEffect2: TColorKeyAlphaEffect;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Single);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
 
  private
    { Private declarations }
  public
 procedure komznach;  //ïðîöåäóðà ðîçä³ëÿº êîìàíäó ³ çíà÷åííÿ ³ çàïèñóº ó â³äïîâ³äí³ çì³íí³
    { Public declarations }
  end;
 
var
Form2: TForm2;
radok,znach ,komanda: string;
j,i,n,k: integer;
x0,y0:single;
move:boolean;
implementation
{$R *.fmx}
procedure TForm2.Button1Click(Sender: TObject);
  begin
  n:= Memo1.Lines.Count;
  if memo1.Lines[0]<>'' then begin
  radok:=memo1.Lines[0];
  komznach;
  timer1.Enabled:=true;
  end;
    i:=0 ;
    k:=0;
  end;
   procedure TForm2.Timer1Timer(Sender: TObject);
begin
if komanda='ââåðõ'then begin image1.RotationAngle:=0; image1.Position.Y :=image1.Position.Y - 1; end;
if komanda='âíèç'then begin image1.RotationAngle:=180; image1.Position.Y :=image1.Position.Y + 1; end;
if komanda='âë³âî'then begin image1.RotationAngle:=270;  image1.Position.x :=image1.Position.x - 1;end;
if komanda='âïðàâî'then begin image1.RotationAngle:=90; image1.Position.x :=image1.Position.x + 1;end;
inc(k);
if k = strtoint(znach) then  begin
if i<n-1 then inc(i) else begin
 i:=0;
 timer1.Enabled:=false;
 showmessage('Ïðîãðàìó çàâåðøåíî');
 end;
 radok:=memo1.Lines[i];
 if memo1.Lines[i]<>'' then komznach;
 k:=0;
end;
end;
//end;
procedure TForm2.FormCreate(Sender: TObject);
begin
image1.Bitmap.LoadFromFile('marsrover.jpg');
image2.Bitmap.LoadFromFile('mars1.jpg');
end;
 
procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
   move:=true;
   x0:=x;
   y0:=y;
   end;
 
procedure TForm2.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin
  if move then begin
  image1.Position.x :=image1.Position.x+x-x0;
  image1.Position.Y :=image1.Position.Y+y-y0;
   end;
end;
 
procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
   move:=false;
end;
 
procedure TForm2.komznach;
begin
for j := 0 to length(radok) do begin
if radok[j]=' ' then begin
komanda:=copy(radok,0,j-1);
znach:=copy(radok,j+1, length(radok)-j+1);
end;
end;
end;
 
end.