Типы данных. Командные кнопки. Линейные структуры

unit MainU;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
qmode:byte;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
qmode:=1;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
qmode:=2;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
case qmode of
1:
begin
if image1.Left+image1.Width+10<image2.Left-10 then
begin
image1.Left:=image1.Left+10;
image2.Left:=image2.Left-10;
end;
end;
2:
begin
if (image1.Left>16)and(image2.Left+image2.Width<width-16) then
begin
image1.Left:=image1.Left-10;
image2.Left:=image2.Left+10;
end;
end;
end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    btn1: TButton;
    img1: TImage;
    btn2: TButton;
    img2: TImage;
    btn3: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  end;
var
  Form1: TForm1;
  qmode:byte;
implementation
 
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
qmode:=1;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
qmode:=2;
end;
    procedure TForm1.Timer1Timer(Sender: TObject);
begin
case qmode of
1:
begin
if img1.Left+img1.Width+10<img2.Left-10 then
begin
img1.Left:=img1.Left+10;
img2.Left:=img2.Left-10;
end;
end;
2:
begin
if (img1.Left>16)and(img2.Left+img2.Width<width-16) then
begin
img1.Left:=img1.Left-10;
img2.Left:=img2.Left+10;
end;
end;
end;
end;
procedure TForm1.btn3Click(Sender: TObject);
begin
close;
end;
 
end.