Form einblenden andere forms laden und form ausblenden

[Christian18]

Hallo,

ich habe es mal versucht in mein Programm einzubinden. Leider funktioniert es nicht. ich schicke einfach mal den Quellcode.

Delphi-Quellcode:

unit ULoad;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, ComCtrls;

type
  TFLoad = class(TForm)
    Image1: TImage;
    ProgressBar1: TProgressBar;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FLoad: TFLoad;

implementation

{$R *.dfm}

procedure TFLoad.FormActivate(Sender: TObject);
  var i : Integer;  // Schleifenvariable
begin
  for i:=0 to 25 do
    begin
      FLoad.AlphaBlendValue:=i * 10;
      Application.ProcessMessages;
    end;
end;

procedure TFLoad.FormClose(Sender: TObject; var Action: TCloseAction);
  var i : Integer;  // Schleifenvariable
begin
  for i:=0 to 25 do
    begin
      FLoad.AlphaBlendValue:=255 - i * 10;
      Application.ProcessMessages;
    end;
end;

end.


program Test;

uses
  Forms,SysUtils,
...


...

{$R *.res}

begin
  Application.Initialize;
  Application.Title:='GM-Praxis2005';
  with TFLoad.Create(nil) do try
    ProgressBar1.Max:=4;

    Application.CreateForm(TFAnmeldung, FAnmeldung);

    Application.CreateForm(TFMain, FMain);

    Application.CreateForm(TDM, DM);

    Application.CreateForm(TFPatEdit, FPatEdit);
  finally
    Free;
  end;
  Application.Run;
end.

Es kommt ein Fehler:

Dieser hier:

[Fehler]
Zugriffsverletzung bei Adresse 00467D88 in Modul 'Test.exe'. Lesen von Adresse 000002E1.
[/Fehler]