Delphi中的TOpenDialog - 如何只打开具有给定名称的文件

var
  Folder: OFolder;
  Item: OFolderItem;
begin
  // 创建OFolder和OFolderItem实例
  Folder := OFolder.Create('My Files', '');
  Item := Folder.CreateItem('MyFile.txt', '');
end;

function GetFileName(Item: OFolderItem): string;
begin
  Result := Item.FileName;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Item: OFolderItem;
begin
  Item := GetFileName('My Files', 'MyFile.txt');
  if Item <> '' then
  begin
    // 打开文件
    Item.Open;
  end;
end;