Probleme mit Listbox Einträgen

[Johnny Bravo]

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
    var
    IconIndex : Integer;
    h : hIcon;
    S : String;
    Icon : TIcon;
    Bitmap : TBitmap;
    OpenDialog : TOpenDialog;
    lIndex: Integer;

    begin

    if  (Edit1.Text = '') then
    begin
         ShowMessage('Bitte geben sie einen Namen ein.');
         exit;
        end
     else

     if Form2.ListBox1.ItemIndex < 0 then
         MeinArray[lIndex].RealFileName := Form2.OpenDialog1.FileName;
         SetLength(MeinArray, lIndex + 1);
         MeinArray[lIndex].DisplayName := Form4.Edit1.Text;
         lIndex := Form2.ListBox1.ItemIndex;
         lIndex := Length(MeinArray);
         Form2.ListBox1.Items.Add(MeinArray[lIndex].DisplayName); // hier gibts einen Fehler bei der Bereichsprüfung, wenn ich auf ok klicke. Wenn ich das entferne, wird logischerweise nichts der Listbox hinzugefügt....
       [...]
     end;