unit uload;

interface

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

type
  TFload = class(TForm)
    Lmess: TLabelEffect;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fload: TFload;

implementation

{$R *.dfm}

procedure TFload.Timer1Timer(Sender: TObject);
begin
  Lmess.visible:=not Lmess.visible;
end;

procedure TFload.FormActivate(Sender: TObject);
begin
  application.ProcessMessages;
end;

procedure TFload.FormShow(Sender: TObject);
begin
  application.ProcessMessages;
end;

end.


  try
    s.free;
//    Application.Terminate;
    Fload.Timer1.Enabled:=false;
    Sleep(500);
    fload.Visible:=true;
    FreeandNil(Fload);
//    Fload.Free;
  except
  end;