Код:
procedure Tfrm_tmp.btn_browseClick(Sender: TObject);
var
dlg: TOpenDialog;
begin
dlg := TOpenDialog.Create(nil);
// if fod_main.Execute(Handle) then
// begin
// ledit_path.Text := fod_main.FileName;
// end;
try
dlg.InitialDir := APP_PATH;
dlg.Filter := 'Word 2003|*.doc';
if dlg.Execute(Handle) then
ledit_path.Text := dlg.FileName;
finally
dlg.Free;
end;
end;
Выбираю файл:
https://sun9-2.userapi.com/c857236/v...9xehfy5mFs.jpg
Через несколько секунд (не сразу) появляется ошибка:
https://sun9-19.userapi.com/c857236/...o3O7-m8Kdg.jpg
В чем может быть дело?