Fórum Tela de Incialização e TDBImage #210601

program SCC;

uses
  Forms,
  Windows,
  Frm_Principal in ´Frm_Principal.pas´ ,
  ...
  ...

{$R *.RES}

var
  Handle: THandle;
begin
  Application.Initialize;
  with TFrmInicio.Create(nil) do
  try
    ProgressBar1.Max := 100;
    Show;   // show a splash screen contain ProgressBar control
    Update; // force display of FrmInicio
    ProgressBar1.StepBy(10);
    Application.CreateForm(TDMA, DMA);
    ProgressBar1.StepBy(10);
    Application.CreateForm(TFrmPrincipalSCC, FrmPrincipalSCC);
    ProgressBar1.StepBy(20);
    Application.CreateForm(TFrmLocalizar, FrmLocalizar);
    ProgressBar1.StepBy(10);
    Application.CreateForm(TFrmConfirma, FrmConfirma);
    ProgressBar1.StepBy(20);
    Application.CreateForm(TFrmBackup, FrmBackup);
    ProgressBar1.StepBy(20);
    Application.CreateForm(TFrmRel, FrmRel);
    ProgressBar1.StepBy(10);
    Application.CreateForm(TFrmConfirma, FrmConfirma);
  finally
    Free;
  end;
  Application.Run;
end.

procedure TFrmOrcamento.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key =  VK_DELETE  then
   begin
   qryParam.Edit;
   qryParamCLI_LOGOTIPO.Value:=´´;
   qryParam.ApplyUpdates;
   end;
end;

  with TFrmInicio.Create(nil) do 
  try 
...

...
  finally 
    Free; 
  end;