Fórum Fechamento de programa no delphi #532974

Bom dia a todos.

Vou mostrar de uma forma reduzida o programa , no qual consigo simular o erro.

O que pretendo é desligar o software após a contagem de ciclos, ele mostra a contagem mas......

o que esta errado ?

segue abaixo o código simplificado para analise ( PS. ja tentei o comando Application.Terminate; e close;)
****************************************************************************************************************************************************************************************************************************


unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
contagem: int8;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
contagem := (contagem+1);
memo1.Lines.Add(inttostr(contagem));

if (contagem > 20) then
begin
Application.Terminate;
end;
Sleep(500);
Button1.OnClick(nil);
end;
///////////////////////////////////////////////////////////////////////////////
procedure TForm1.FormCreate(Sender: TObject);
begin
contagem := 0;
end;

end.