После нажатия кнопки вылетает access violation, что делать?

kalapanga, Должен динамически создаваться

После нажатия кнопки вылетает access violation, что делать?

kalapanga, Path_To_Files Константа из БД.
Закомментировал

if not DirectoryExists(Path_To_Files+'DocUchet\'+Id) then
          MkDir(pchar(Path_To_Files+'DocUchet\'+Id));
        F_FormUchetDoc.ShellListView1.Root:=Path_To_Files+'DocUchet\'+Id;

Теперь падает в самой форме, в
ShellListView1.Clear;

procedure TF_FormUchetDoc.FormShow(Sender: TObject);
var i: Integer;
begin
 if F_MAIN.FlagDoc='Добавить' then
   begin
     Edit3.Text:='';
     F_MAIN.FlagDoc:='';
     ShellListView1.Clear;
     Edit2.SetFocus;
   end
 else Edit1.Text:=F_DM.Q_PRIKAZ.FieldByName('NOMER_FULL').AsString;

 if (F_MAIN.USER_LEVEL=4) and
    (F_DM.Q_PRIKAZ.FieldByName('PRZ_STATUSDOC').AsInteger<>2) and
    (F_DM.Q_ISPOLPRIKAZ.RecordCount>0)
   then
     BitBtn5.Enabled:=True
   else
     BitBtn5.Enabled:=False;

 if (F_DM.Q_ISPOLPRIKAZ.RecordCount>0) and (ButCap<>'Просмотреть') then
   BitBtn4.Enabled:=True
 else
   begin
     BitBtn4.Enabled:=False;
     ButCap:='';
   end;

 TypDogId:=F_DM.Q_PRIKAZ.FieldByName('TYPEDOC_ID').AsString;
 MaxIdNom:=F_DM.Q_PRIKAZ.FieldByName('PRZ_NOMERDOC').AsString;
end;

После нажатия кнопки вылетает access violation, что делать?

kalapanga, oops, вы правы, заходит, падает на

F_FormUchetDoc.ShellListView1.Root:=Path_To_Files+'DocUchet\'+Id;

После нажатия кнопки вылетает access violation, что делать?

1) Падает на If KeyResult Then SpeedButton5Click(Sender);
2)Автосоздание отключено
3)Перенёс, не помогло.
4)....

После нажатия кнопки вылетает access violation, что делать?

Mercury13, код не мой, вылет в строке:

If KeyResult Then SpeedButton5Click(Sender);
end;