Помогите найти ошибку (Delphi)

[Rigard]

(урок из 'Библия Delphi' - 11.22 Простейший файловый менеджер)
при компиляции вылезает ошибка:
Access violation at address 00465650 in module 'Project1.exe'. Read of address FFFFFFFF.
вот сам проект (если он конечно нужен...)

[Карась]

Мне хватил 5 минут чтобы отыскать где она начинается и понять что её вызывает.... Учитесь пользоваться встроеным отладчиком...

Ошибка появляется на строке:

procedure TForm1.FormShow(Sender: TObject);
begin
addFile('C:/*.*',faAnyFile); // непрошло.
end;

Потом кидает на строку:

if Path[length(Path)] <> '\' then

С ошибкой:
[Warning] Unit1.pas(89): Symbol 'FindData' is specific to a platform

Но как потом выяснилось эта ошибка от другой строки:

with SearchRec.FindData do

Но на работу программы это ошибка вроде невлияет...

Копая дальше пришёл к выводу что ненравиться компилятору функция:

function SlashSep(Path, FName: string): string;
      begin
        if Path[length(Path)] <> '\' then // тут ошибка.
          result:= Path + '\' + FName
        else
          Result:= Path + FName;
      end;

Что конкретно ненравиться я оставляю разбираться Вам.....

Советую поставить на эту строку брекпоинт и проверить к какому индексу строки Path идёт обращение....

[VVM]

Карась все верно написал. А сама ошибка возникает оттого, что переменная "Path" = '';

В строке "if Path[length(Path)] <> '\' then" происходит обращение к еще невыделенной памяти ("Path").

[VVM]

Как вариант:

function SlashSep(Path, FName: string): string;
      begin
        if trim(Path) = '' then
        begin
          Result := '';
          Exit;
        end;        
        if Path[length(Path)] <> '\' then
          result:= Path + '\' + FName
        else
          Result:= Path + FName;
      end;

[Rigard]

Большое вам "аригато" (тоесть спасибо), ошибка как выше сказано была в

# function SlashSep(Path, FName: string): string;  
       begin  
         if Path[length(Path)] <> '\' then // тут ошибка.  
         result:= Path + '\' + FName  
         else  
          Result:= Path + FName;  
      end;

помогло простое удаление с 03. по 06. строк(ну и саму функцию я поставил немного в другое место). и всё работает как надо.