разобраться

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i,et1,et,t1:integer;
  s:string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
l,i:integer;
b:boolean;
begin
if key <> #013 then s:=s + key
else
  begin
   l:=length(s);
   b:=true;
   i:=1;
     while (i<=l)and(b=true) do
      if s[i] in ['0'..'9'] then i:=i+1
      else b:=false;
     if (b=false) then Memo1.Lines.Add('неверный этаж')
     else
      begin
       et:=StrToInt(s);
       if (et > 9) or (et < 1) then begin
                                      Memo1.Lines.Add('Ошибка.Вы ввели этаж: ' + s);
                                      Memo1.Lines.Add(' Всего этажей: 9');
                                      Memo1.Lines.Add('Введите этаж еще раз');
                                     end
       else begin
             Memo1.Lines.Add('Вы ввели этаж: ' + s);
             Edit2.Text:=s;
             Timer1.Enabled:=true;
            end;
      end;
   s:='';
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.Add('Лифт находится на 1м этаже');
et1:=1;
s:='';
t1:=0;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var s1:string;
begin
if et>et1 then
 begin
  et1:=et1+1;
  s1:=IntToStr(et1);
  Edit1.Text:=s1;
  Memo1.Lines.Add('Лифт находится на ' + s1+ '-м этаже');
  if et=et1 then begin
                  Timer1.Enabled:=false;
                  Timer2.Enabled:=true;
                 end;
 end;
if et<et1 then
 begin
  et1:=et1-1;
  s1:=IntToStr(et1);
  Edit1.Text:=s1;
  Memo1.Lines.Add('Лифт находится на ' + s1+ '-м этаже');
  if et=et1 then begin
                  Timer1.Enabled:=false;
                  Timer2.Enabled:=true;
                 end;
 end;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
Memo1.Lines.Add('Лифт достиг этажа назначения');
t1:=t1 + Timer2.Interval;
if t1>=5000 then begin
                  Timer2.Enabled:=false;
                  t1:=0;
                  Memo1.Lines.Add('Лифт в режиме ожидания');
                 end;
end;
 
end.