Проблема с OpenDialog...

[Kronos913]

procedure TForm3.Button14Click(Sender: TObject);
begin
 opendialog2.FileName:=Dir+'\*.png';
 If OpenDialog2.Execute then begin
   {какой-то код}
 end;
end;

Dir - глобальная переменная типа string

При исполнении такого когда не открывается вызывать окно opendialog

При чем, любую другую переменную подставить вместо Dir - все работает на ура. Другой string, параметры label, все что угодно, даже opendialog2.FileName:=''

А вот с этой переменной Dir возникает проблема, что с ней не пытайся сделать. Пробовал и убирать кусок строки после нее

[Shouldercannon]

В Delphi 10.1 всё открывается

unit Unit17;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm17 = class(TForm)
    Button1: TButton;
    OpenDialog2: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Dir: String;
  end;

var
  Form17: TForm17;

implementation

{$R *.dfm}

procedure TForm17.Button1Click(Sender: TObject);
begin
 opendialog2.FileName:=Dir+'\*.png';
 If OpenDialog2.Execute then begin
   {какой-то код}
 end;
end;

procedure TForm17.FormCreate(Sender: TObject);
begin
  Dir := 'C:';
end;

end.

[Kronos913]

Я только что начал искать за пределами выделенного фрагмента и нашел в чем проблема

В имени возникало два '\' подряд