Programm arbeitet nicht richtig unter Win7

[Aemon]

Delphi-Quellcode:

procedure RebuildMessageList;
var
  Start: TDateTime;
  cnt: Integer;
begin
  Screen.Cursor := crHourGlass;
  Start := now;
  cnt := 0;
  lvMessages.Items.BeginUpdate;
  try
    lvMessages.OnCompare := nil;
    lvMessages.Items.Clear;

    FContentTable.First;
    while not FContentTable.EOF do
    begin
      Inc(cnt);
      AddItem(FContentTable);
      FContentTable.Next;
    end;

    FSortIndex := -7;
    lvMessages.OnCompare := lvMessagesCompare;
    lvMessages.SortType := stData;
  finally
    lvMessages.Items.EndUpdate;
    Screen.Cursor := crDefault;
    StatusBar.Panels[1].Text := Format('%d items read in %f sec.',[cnt, Trunc((now-Start)*24*3600*100) / 100]);
  end;
end;