Código Delphi [-] if Active then Close;
if Active then Close;
Código Delphi [-] Active := False;
Active := False;