unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Shape1: TShape;
    Shape2: TShape;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  sec:byte;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled:=false;
  Shape1.Left:=24;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Timer2.Enabled:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Timer2.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  If Shape1.Left + Shape1.Width < Form1.Width then Shape1.Left:=Shape1.Left+1;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  inc(sec);
  if sec = 1 then Shape2.Brush.Color:= clBlue;
  if sec = 2 then
    begin
      Shape2.Brush.Color:= clRed;
      sec:=0;
    end;
end;

end.