Array of Boolean Problem

[DeddyH]

Sehe ich auch so.

Delphi-Quellcode:

type
  TFormBla = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FMyHandler: THandler;
  ...

procedure TFormBla.FormCreate(Sender: TObject);
begin
  FMyHandler := THandler.Create;
end;

procedure TFormBla.FormDestroy(Sender: TObject);
begin
  FMyHandler.Free;
end;