[NumLock]

Сообщение от Ankor

открывается папка 'закрытая школа'

ну т.е. работает все-таки))) исходник:

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ForceDirectories('c:\сериалы\закрытая школа\');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.InitialDir:='c:\сериалы\закрытая школа\';
  if OpenDialog1.Execute then Sleep(0);
end;

кста, папку "c:\сериалы" у себя удали