FormResize Procedure Funktionier nicht

[Timb0]

Also Bei dieser Funktion

Delphi-Quellcode:

procedure TForm1.MenuNeuesFensterClick(Sender: TObject);
var
  NewItem:TMenuItem;
  NewForm2:TForm2;
  str:String;
begin
str := Inputbox('Name Eingeben','Namen Des Diagramms eingeben','');
if StringlistFenster.IndexOf(str)  < 0 then
begin
  Newitem := TMenuitem.create(self);
  Newitem.caption := str;
  stringlistFenster.add(str);
  newitem.OnClick := Form1.DynMenuitem;
  MenuFenster.add(NEwitem);
  ListMenuItem.Add(@NEwitem);

  NewForm2 := TForm2.create(self);
  NewForm2.caption := str;
  NEwForm2.Name:=str;
  NEwForm2.Show;
  ListFenster.add(@NewForm2);
end
else ShowMEssage('Der Name Existiert bereits!');
end;

Kann ich noch ganz locker auf das Formular zugreifen. Greif ich dan später auf einen der Zeiger aus der ListFenster zu dann sieht das so aus

Delphi-Quellcode:

PRocedure TForm1.DynMenuitem(Sender:Tobject);
var
  i:Integer;
  PForm2:^TForm2;
begin
  i:= MenuFenster.IndexOf((Sender as TMenuItem));
  PForm2 := ListFenster.Items[i-2];
  PForm2^.Height := 130
end;

dann erhalte ich eine Fehlermeldung.

Gruß Timb0