delphi ListView 更新写入

Procedure TForm1.Timer1Timer(Sender: TObject);
Var
I: Integer;
ID: String; //帐号
Begin
Timer1.Enabled := False;
Try
With ListView1, ADOQuery1 Do
Begin
Open; //打开刷新的数据
For I := 0 To Items.Count - 1 Do
Begin
ID := Trim(Items[I].SubItems[0]); //帐号，关键字

If ADOQuery1.Locate('帐号', ID, []) Then //定位到数据集，更新
Begin
Items[I].SubItems[1] := ADOQuery1.FieldByName('状态').AsString;
Items[I].SubItems[2] := ADOQuery1.FieldByName('时间').AsString;
End;
End;
Close;
End;
Finally
Timer1.Enabled := True;
End;
End;