Routine arbeitte nicht im OnChange des ShellListviews

[Luckie]

Ich habe hier ein Problem. Folgendes habe ich im OnChange des ShellListviews stehen:

Delphi-Quellcode:

procedure TForm1.ShellListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
var
  FileFolder   : string;
  FileInfoEx   : TFileInfoEx;
  i            : Integer;
  mal          : TMultipleArrayList;
  bFoo         : Boolean;
begin
  mal := nil;
  try
    FileFolder := ShellListView1.Folders[ShellListView1.ItemIndex].PathName;
  except;
  end;

  Caption := FileFolder;

  FileInfoEx[0] := GetFileSummaryInfo(FileFolder, FMTID_SummaryInformation,
    PIDSI_TITLE);
  FileInfoEx[1] := GetFileSummaryInfo(FileFolder, FMTID_SummaryInformation,
    PIDSI_SUBJECT);
  FileInfoEx[2] := GetFileSummaryInfo(FileFolder, FMTID_SummaryInformation,
    PIDSI_KEYWORDS);
  FileInfoEx[3] := GetFileSummaryInfo(FileFolder, FMTID_SummaryInformation,
    PIDSI_COMMENTS);
  FileInfoEx[4] := GetFileSummaryInfo(FileFolder, FMTID_SummaryInformation,
    PIDSI_TEMPLATE);
  FileInfoEx[5] := GetFileSummaryInfo(FileFolder, FMTID_SummaryInformation,
    PIDSI_AUTHOR);
  FileInfoEx[6] := GetFileSummaryInfo(FileFolder, FMTID_SummaryInformation,
    PIDSI_REVNUMBER);

  with StringGrid1 do
    for i := 0 to length(FileInfoEx) - 1 do
      Cells[1, i] := FileInfoEx[i];

  bFoo := not DirectoryExists(FileFolder);
  if (bFoo) and (chkAutoSave.Checked) and (FileFolder <> '') then
  begin
    btnSave.Click;
//    SetLength(mal, StringGrid1.RowCount);
//    mal := FillFileInfoArray(StringGrid1);
//    SaveFileInfo(FileFolder, mal);
  end;
end;

btnSave.Click sieht so aus:

Delphi-Quellcode:

procedure TForm1.btnSaveClick(Sender: TObject);
var
  FileFolder   : string;
  mal          : TMultipleArrayList;
begin
  mal := nil;
  FileFolder := ShellListView1.Folders[ShellListView1.ItemIndex].PathName;
  SetLength(mal, StringGrid1.RowCount);
  mal := FillFileInfoArray(StringGrid1);
  SaveFileInfo(FileFolder, mal);
end;

Es soll folgendes passieren: ist die Checkbox chkAutoSave markiert, soll die btnSace.Click Methode ausgeführt werden. Sie wird es, aber das Array mal ist leer. Klicke ich auf den Button selber geht es. Ich finde den Fehler einfach nicht.
OnChange wird auch irgendwie dreimal aufgerufen: Beim ersten Mal steht ist FileFolder die alte Datei, dann ist es leer und dann die neue. Zweimal würde ich ja noch verstehen: Beim verlassen des alten Items und beim Aufrufen des neuen Items. Ich habe das jetzt schon drei Stunden debuggt, komme aber auf keinen grünen Zweig.