unit MainFormUnit;

{$mode objfpc}{$H+}

interface

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

type

  { TMainForm }

  TMainForm = class(TForm)
    RestartEntityButton: TButton;
    Entity: TShape;
    EntityTimer: TTimer;
    procedure OnEntityTimer(Sender: TObject);
    procedure RestartEntity(Sender: TObject);
  private

  public

  end;

var
  MainForm: TMainForm;

implementation

{$R *.lfm}

{ TMainForm }

procedure TMainForm.OnEntityTimer(Sender: TObject);
begin
  Entity.Top := Entity.Top + 1;
end;

procedure TMainForm.RestartEntity(Sender: TObject);
begin
  Entity.Top := 0;
end;

end.