{*******************************************************}
{                                                       }
{  Responsive Software     http://www.responsive.co.nz  }
{                                                       }
{  Copyright (c) 2003-2006 Responsive Software Limited  }
{                                                       }
{*******************************************************}

unit Splash;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Base, ExtCtrls, StdCtrls;

type
  TSplashForm = class(TBaseForm)
    Image1: TImage;
    TextLabel: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SplashForm : TSplashForm;

implementation

uses
  Globals;

{$R *.dfm}

procedure TSplashForm.FormShow(Sender: TObject);
begin
  TextLabel.Caption := ProgramName + ' ' + ModeString + ' ' + ProgramVersion  + Chr(VK_RETURN)
    + 'by ' + DevelopmentCompanyName + Chr(VK_RETURN)
    + Chr(VK_RETURN)
    + 'Please wait ...';
end;

end.