title: Showing a splash image is blank some seconds
body: <p>In my application I have a splash image during connection to database and other initialization . It works fine to show the splash image, but there it is blank of a period.
  So,</p>
  
  <ol>
  <li>Splash image is loaded and shown a fraction of a second.  </li>
  <li>Splash image got blank 2-3 seconds.  </li>
  <li>Splash image is shown again some seconds.  </li>
  <li>Splash is closed. </li>
  </ol>
  
  <p>Is there a clever thing to just show the image as quick as possible and remove the blank image ?</p>
  
  <p>The code in the DPR-file:</p>
  
  <pre><code>Application.Initialize;
  
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  // Tried Splash.Update here but no difference.
  
  SplashForm.SetPos(15);
  // Init code
  SplashForm.SetPos(30);
  
  // More Init code
  SplashForm.SetPos(100);
  
  SplashForm.Close;
  
  Application.Run;
  </code></pre>
  
  <p>And the splash unit:</p>
  
  <pre><code>procedure TSplashForm.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
    Action := caFree;
  end;
  
  procedure TSplashForm.FormCreate(Sender: TObject);
  begin
    pbLoading.Properties.Text := 'Loading ' + TClientConfig.Instance.AppTitle + '...';
  end;
  
  procedure TSplashForm.SetPos(aPos: Integer);
  begin
    pbLoading.Position := aPos;
    UpDate;
  end;
  </code></pre>
  
  <p>Regards
  Roland</p>