Italian community of Lazarus and Free Pascal

  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;

SQLite3Connection.DatabaseName:='\\Archivio\SQL\mioDatabase.db';

SQLite3Connection.DatabaseName:='smb://Archivio/SQL/mioDatabase.db';