AV bei Umwandlung der Klasse

[Die Muhkuh]

Hi,


ich steh grad aufem Schlauch. Folgender Code:

Delphi-Quellcode:

type 
  TEintrag = class
    Fenster: String;
    Titel: String;
    Caption: String;
  end;

[...]

procedure Tfmain.Button1Click(Sender: TObject);
var
  Eintrag: TEintrag;
  Fenster: String;
  Titel: String;
begin
  Eintrag := TEintrag.Create;
  Eintrag := TEintrag(Listbox1.Items[ListBox1.ItemIndex]);
  ShowWindow(FindWindow(PChar(Eintrag.Fenster), PChar(Eintrag.Titel)), SW_HIDE); //<---
  ListBox1.Items.Strings[Index] := ListBox1.Items.Strings[Index] + '|*';
  Button1.Enabled := false;
  Button2.Enabled := true;
end;


// Hinzufügen
procedure Tfadd.Button2Click(Sender: TObject);
begin
  with TEintrag.Create do
  begin
    Titel := lTitel.Caption;
    Fenster := lFenster.Caption;
    Caption := lTitel.Caption;
    fmain.ListBox1.AddItem(Caption, Self);
  end;
end;

Beim Pfeil gibts ne AV. Warum?