[lazarus] New Bug Entered

[mhess at miraclec.com]

Title: AOwner difers from Self

Entered by: João Schuler

When I change Self to AOwner, the program
crashes:

 constructor TForm1.Create(AOwner: TComponent);
 begin
 inherited Create(AOwner);

// ObjName:Form1  ClassName:TForm1
// Made by DFM To Pas V0.4

// MainMenu1:TMainMenu;
// File1:TMenuItem;
// Quit1:TMenuItem;

 Left := 288;
 Top := 264;
 Width := 381;
 Height := 392;
 Caption := \'Form1\';

//MainMenu1:=TMainMenu.Create(AOwner);
MainMenu1:=TMainMenu.Create(Self);
 with MainMenu1 do
     begin
//     File1:=TMenuItem.Create(AOwner);
     File1:=TMenuItem.Create(Self);
     with File1 do
          begin
          Caption := \'File\';
//          Quit1:=TMenuItem.Create(AOwner);
          Quit1:=TMenuItem.Create(Self);
          with Quit1 do
               begin
               Caption := \'Quit\';
               File1.Add(Quit1);
               end;
          MainMenu1.Items.Add(File1);
          end;
     Menu:=MainMenu1;
     end;