Delphi listview写入时如何让它自动返回顶部（第一行）

Delphi 中，让 ListView 控件写入时它自动返回顶部，可以参考以下代码：bai

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  ListItem: TListItem;
begin
  for i := 1 to 1000 do
  begin
    with ListView1 do
    begin
      ListItem := Items.Add;
      ListItem.Caption := Format('文件名称%.4d',[i]);
      ListItem.SubItems.Add(Format('%.4d',[i]));
    end;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ListView1.Selected := ListView1.Items[0]; //设置第 1 行为选中状态
  ListView1.Selected.MakeVisible(True);     //刷新让第 1 行显示
end;

运行代码截图：