Splashscreen with progressbar for query

unit uSplash;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TfrmSplash = class(TForm)
    progressCopy: TProgressBar;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    fRunning: Boolean;
    procedure LoadExternalDB(var Msg: TMessage); message WM_USER;
  public
    procedure Start;
  end;
 
var
  frmSplash: TfrmSplash;
 
procedure RunSplash;
 
implementation
 
{$R *.dfm}
 
procedure RunSplash;
begin
  if not Assigned(frmSplash) then
    frmSplash := TfrmSplash.Create(Application);
  frmSplash.Start;
end;
 
procedure TfrmSplash.Start;
begin
  if not fRunning then
  begin
    Show;
    BringToFront;
    Update;
  end;
end;
 
procedure TfrmSplash.LoadExternalDB(var Msg: TMessage);
var ConTypes : Integer;
    //Source, Target : TAdQuery;
    teller : integer;
begin
  case Msg.WParam of
    0:
    if not fRunning then
    begin
      fRunning := True;
      try
        (*
        ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
        if InternetGetConnectedState(@ConTypes, 0) = True then
        begin
          AD_MySQL.Connected := True;
          AccessConnect;
          Source := TADQuery.create(Self);
          try
            Target := TADQuery.create(self);
            try
              Source.connection := AD_MySQL;
              Target.connection := AD_Access;
              Source.Close();
              Target.Close();
              Target.SQL.Add('DELETE * FROM songs');
              Target.ExecSQL;
              Source.SQL.Text := 'SELECT * FROM songs';
              Target.SQL.Text := Source.SQL.Text;
              Source.Active := True;
              Target.Active := True;
              while not Source.eof do
              begin
                Target.Append;
                for teller := 0 to Source.fieldcount -1 do
                  Target.Fields[teller].Value := Source.Fields[teller].value;
                Target.Post;
                progressCopy.Position :=  progressCopy.Position + 1;
                Source.next;
              end;
              Source.active := false;
              Target.active := false;
            finally
              Target.Free;
            end;
          finally
            Source.free;
          end;
        end;
        *)
      finally
        fRunning := False;
      end;
      PostMessage(Handle, WM_USER, 1, 0);
    end;
    1: Close;
  end;
end;
 
procedure TfrmSplash.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  frmSplash := nil;
end;
 
procedure TfrmSplash.FormShow(Sender: TObject);
begin
  PostMessage(Handle, WM_USER, 0, 0);
end;
 
initialization
  frmSplash := nil;
finalization
end.
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120: