[r1x]

Всем Hi!

В общем одна ошибка (указана в теме)
Выявил где она возникает вот этот код на обозрение:

Код:

procedure TDesktop.List(Path: string);
var
  lpBuf: PChar;
  sWinDir: string[128];
  SearchRec: TSearchRec;

begin
  sListView1.Clear;
  if not DirectoryExists(Path) then
    begin
    ShowMessage('Папка с тестами не найдена!');
    exit;
    end else
  if FindFirst(Path + '*.rvb', faAnyFile, SearchRec) =0 then
     begin
          sListView1.Items.Add.Caption:=SearchRec.Name;
          while (FindNext(SearchRec) = 0) do
              sListView1.Items.Add.Caption:=(SearchRec.Name);
     end;
   sListView1.ItemIndex := 0;
end;

Плиз помогите...