Fixed the index error when another bottle is arrived while loading the log

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index 06b1a90..ef8e73a 100755 (executable)
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -1109,7 +1109,11 @@ end;
 
 procedure TfrmLog.LogLoadWork(Sender: TObject);
 begin
-  if Sender = SelectedBottleLog then lvwLog.Invalidate;
+  if Sender = SelectedBottleLog then
+  begin
+    lvwLog.Invalidate;
+    lvwLog.Items.Count := SelectedBottleLog.Count;
+  end;
 end;
 
 procedure TfrmLog.lvwLogDrawItem(Sender: TCustomListView; Item: TListItem;