Использование форм при разработке приложений

#apptype 'windows'
#reference 'System.Windows.Forms.dll'
 
#apptype 'windows'
#reference 'System.Drawing.dll'
 
uses
  System, System.Windows.Forms, System.Drawing;
 
var
  _form: Form;
  Start, Pause, Stop: Button;
  log1, log2, log3: TextBox;
  arrGasoline: array[1..5] of TextBox;
  arrDiesel: array[1..5] of TextBox;
  n: byte := 0;
  nDiesel: byte := 0;
  TT: System.Windows.Forms.Timer;
  TM: integer := 0;
  TMPumped: integer := 0;
  TMAdd: integer := 0;
  TMPumpedDis: integer := 0;
  TMAddDis: integer := 0;
  Leave: integer := 0;
  money: integer := 0;
 
procedure AddGasoline;
begin
  if n = 5 then
  begin
    Inc(Leave);
    log3.Text := Leave.ToString;
    EXIT;
  end;
  Inc(n);
  arrGasoline[n] := new TextBox;
  arrGasoline[n].Top := 20;
  arrGasoline[n].Left := 30 + n * 50;
  arrGasoline[n].Enabled := false;
  arrGasoline[n].Width := 30;
  arrGasoline[n].Text := n.ToString;
  arrGasoline[n].BackColor := Color.Yellow;
  _form.Controls.Add(arrGasoline[n]);
end;
 
procedure PumpedGasoline;
begin
  if n = 0 then EXIT;
  arrGasoline[1].Dispose;
  Dec(n);
  for var i := 1 to n do
  begin
    arrGasoline[i] := arrGasoline[i + 1];
    arrGasoline[i].Left := arrGasoline[i].Left - 50;
  end;
  arrGasoline[n + 1] := nil;
end;
 
procedure AddDiesel;
begin
  if nDiesel = 5 then
  begin
    Inc(Leave);
    log3.Text := Leave.ToString;
    EXIT;
  end;
  Inc(nDiesel);
  arrDiesel[nDiesel] := new TextBox;
  arrDiesel[nDiesel].Top := 70;
  arrDiesel[nDiesel].Left := 30 + nDiesel * 50;
  arrDiesel[nDiesel].Enabled := false;
  arrDiesel[nDiesel].Width := 30;
  arrDiesel[nDiesel].Text := nDiesel.ToString;
  arrDiesel[nDiesel].BackColor := Color.White;
  _form.Controls.Add(arrDiesel[nDiesel]);
end;
 
procedure PumpedDiesel;
begin
  if nDiesel = 0 then EXIT;
  arrDiesel[1].Dispose;
  Dec(nDiesel);
  for var i := 1 to nDiesel do
  begin
    arrDiesel[i] := arrDiesel[i + 1];
    arrDiesel[i].Left := arrDiesel[i].Left - 50;
  end;
  arrDiesel[nDiesel + 1] := nil;
end;
 
procedure TimerStart(sender: object; e: EventArgs);
begin
  TT.Start;
  Start.Text := 'Start';
end;
 
procedure TimerPause(sender: object; e: EventArgs);
begin
  TT.Stop;
  Start.Text := 'Proceed';
end;
 
procedure TimerStop(sender: object; e: EventArgs);
begin
  TT.Stop;
  
  log1.Text := '0:0';
  log2.Text := '0$';
  log3.Text := '0';
  for var i := 1 to 5 do
  begin
    if arrGasoline[i] <> nil then arrGasoline[i].Dispose;
    if arrDiesel[i] <> nil then arrDiesel[i].Dispose;
  end;
  n := 0;
  nDiesel := 0;
  TM := 0;
  TMPumped := 0;
  TMAdd := 0;
  TMPumpedDis := 0;
  TMAddDis := 0;
  Leave := 0;
  money := 0;
end;
 
procedure BasicAlgorithm(sender: object; e: EventArgs);
var
  b: boolean := false;
  bDis: boolean := false;
begin
  Inc(TM);
  
  log1.Text := Trunc(TM / 60).ToString + ':' + (TM - (Trunc(TM / 60) * 60)).ToString;
  
  if (TMAdd < 1) then 
  begin
    TMAdd := PABCSystem.Random(40) + 10;
    AddGasoline;
    b := true;
  end;
  
  if (TMPumped < 1) and (n > 1) then
  begin
    TMPumped := PABCSystem.Random(40) + 10;
    money += Trunc(TMPumped / 2);
    log2.Text := money.ToString + '$';
    PumpedGasoline;
  end;
  
  
  if TMAddDis < 1 then 
  begin
    TMAddDis := PABCSystem.Random(80) + 10;
    AddDiesel;
    bDis := true;
  end;
  
  if (nDiesel > 1) and (TMPumpedDis < 1) then
  begin
    TMPumpedDis := PABCSystem.Random(80) + 10;
    money += Trunc(TMPumpedDis / 2);
    log2.Text := money.ToString + '$';
    PumpedDiesel;
  end;
  
  Dec(TMAddDis);
  Dec(TMPumpedDis);
  
  Dec(TMAdd);
  Dec(TMPumped);
end;
 
begin
  _form := new Form();
  _form.Width := 600;
  _form.Height := 200;
  
  Start := new System.Windows.Forms.Button();
  Start.Left := 0;
  Start.Top := 139;
  Start.Text := 'Start';
  
  Pause := new System.Windows.Forms.Button();
  Pause.Left := 75;
  Pause.Top := 139;
  Pause.Text := 'Pause';
  
  Stop := new System.Windows.Forms.Button();
  Stop.Left := 150;
  Stop.Top := 139;
  Stop.Text := 'Stop';
  
  log1 := new TextBox();
  log1.Text := TM.ToString;
  log1.Top := 142;
  log1.Left := 225;
  log1.Width := 50;
  log1.Enabled := false;
  log1.TextAlign := HorizontalAlignment.Center;
  log1.Text := '0:0';
  
  log2 := new TextBox();
  log2.Text := money.ToString + '$';
  log2.Top := 142;
  log2.Left := 275;
  log2.Width := 50;
  log2.Enabled := false;
  log2.TextAlign := HorizontalAlignment.Center;
  
  log3 := new TextBox();
  log3.Text := leave.ToString;
  log3.Top := 142;
  log3.Left := 325;
  log3.Width := 50;
  log3.Enabled := false;
  log3.TextAlign := HorizontalAlignment.Center;
  
  Stop.Click += TimerStop;
  Start.Click += TimerStart;
  Pause.click += TimerPause;
  
  var txgas:Button:=new Button();
  txgas.Top:=19;
  txgas.Left:=10;
  txgas.Width:=50;
  txgas.Text:='GaS';
  
    var txDis:Button:=new Button();
  txDis.Top:=69;
  txDis.Left:=10;
  txDis.Width:=50;
  txDis.Text:='DieseL';
  
  TT := new Timer;
  TT.Interval := 10;
  TT.Tick += BasicAlgorithm;
  
  _form.Controls.Add(txgas);
  _form.Controls.Add(txDis);
  _form.Controls.Add(log1);
  _form.Controls.Add(log2);
  _form.Controls.Add(log3);
  _form.Controls.Add(Pause);
  _form.Controls.Add(Start);
  _form.Controls.Add(Stop);
  Application.Run(_form);
end.