TListView选择点击事件

procedure TForm22.ListView1DblClick(Sender: TObject);
var
  fileName: string;
begin
  if ListView1.Selected <> nil then                 //选择
  begin
    fileName := ListView1.Selected.SubItems.Strings[3];
    Form1.Show;
    Form1.isOpen := false;
    Form1.FFileName := fileName;
    Form1.FileOpenClick(Sender);
  end;
end;