Datensatz laden - ComboBox bleibt beim Ladevorgang offen

[Yheeky]

Okay, hier ist der Code.

Delphi-Quellcode:

procedure TfrmMain.cZeitChange(Sender: TObject);
var
  I : Integer;
  Dateiname: string;
  Eintrag: TListItem;

begin
ListView.Items.Clear;

if FileExists(Dateiname) then
    begin
    try
     JVSimpleXML.LoadFromFile(Dateiname);
    finally
    ListView.BeginUpdate();

    for I := 1 to JVSimpleXML.Root.Items.Count-1 do
       begin
       Eintrag := ListView.Items.Add;

       if JVSimpleXML.Root.Items[I].Items.ItemNamed[XMLType].Value = '0' then
       Eintrag.Caption := 0;

       if JVSimpleXML.Root.Items[I].Items.ItemNamed[XMLKuerzel].Value = 'Ja' then
       Eintrag.SubItems.Add('1')
       else
       Eintrag.SubItems.Add('2');

       Eintrag.SubItems.Add(JVSimpleXML.Root.Items[I].Items.ItemNamed[XMLText].Value);
       Eintrag.SubItems.Add(JVSimpleXML.Root.Items[I].Items.ItemNamed[XMLUhrzeit].Value);
       end;

    ListView.EndUpdate();

    end;
    end;

  end;

end;