Italian community of Lazarus and Free Pascal

procedure AmmortamentoCespiti();     
type
  TtbGrupCespiti = array [0..10, 0..1] of string;   
 . . .
var
  FormAvviso: TForm;
  Lmsg: TLabel;

  swFine: Boolean = False;    
. . .
begin
. . .
  FormAvviso:=TForm.Create(nil);
  with FormAvviso do
  begin
    Height:= 130;
    Left:= 500;
    Top:= 50;
    Width:= 400;
    Position:= poScreenCenter;
    Caption:= 'MOVIMENTI AMMORTIZZABILI';
    Enabled:= True;     <-- NUOVA
    Visible:= True;      <-- NUOVA
  end;

  Lmsg := TLabel.Create(FormAvviso);
  with Lmsg do
  begin
    Parent:= FormAvviso;
    Height:= 80;
    Left:= 10;
    Top:= 20;
    Width:= 300;
    Caption:= 'Ricerca in corso' + lineending + ' ' + lineending + Space(30) + '  A T T E N D I';
    AutoSize:= False;
    Enabled:= True;
    Visible:= True;
    ParentColor:= False;
  end;

   FormAvviso.Show;
   Sleep(200);
   Application.ProcessMessages;

  FormAvviso:=TForm.Create(nil);
  with FormAvviso do
  begin
    Height:= 130;
    Left:= 500;
    Top:= 50;
    Width:= 400;
    Position:= poScreenCenter;
    Caption:= 'MOVIMENTI AMMORTIZZABILI';
  end;

  Lmsg := TLabel.Create(FormAvviso);
  with Lmsg do
  begin
    Parent := FormAvviso;
    Height:= 80;
    Left:= 10;
    Top:= 20;
    Width:= 300;
    Caption:= 'Ricerca in corso' + lineending + ' ' + lineending + Space(30) + '  A T T E N D I';
    AutoSize:= False;
    Enabled:= True;
    Visible:= True;
  end;

   FormAvviso.Show;
   Sleep(200);     // Attendi 200 millesecondi (= 1/5 di secondo)
   Application.ProcessMessages;