Ошибка при использовании CreateProcess

[Sadowod]

Пишу оболочку для запуска консольного кодировщика ogg Vorbis. Сначала всё было нормально, всё работало. Но после незначительных изменений в коде (не в этой функции), после завершения работы кодировщика - вылетает ошибка:
Project ogg.exe raised exception class EAccessViolation with message 'Access violation at adress ... in module 'ogg.exe'. Read of adress 00000000'.

Вот функция, запускающая внешнюю программу:

function ExecAndWait(const FileName, Params: ShortString; const WinState: Word): boolean; export;

var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;

begin
  CmdLines := Filename + ' ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0); 

  with StartInfo do
  begin
    cb := SizeOf(StartInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
  end;
  Result := CreateProcess(nil, PChar( String( CmdLines ) ), nil, nil, false,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
  if Result then
  begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;

Уже пару часов пытаюсь разобраться из-за чего так стало происходить, но ничего в голову не приходит...

[GunSmoker]

Вообще-то это проблема ogg.exe, а не ваша.

[Sadowod]

ogg.exe - это и есть моя программа. Кодировщик зовётся oggenc2.exe...

[Stilet]

CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);

Дважды зачем?

Выясни на какой строке падает.
at adress ... - к какой строке относится? посмотри в отладчике

[GunSmoker]

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

ogg.exe - это и есть моя программа. Кодировщик зовётся oggenc2.exe...

Тогда в показанном вами коде ошибок нет. Она где-то ещё. Если запускать под отладчиком - на какой строчке встаёт отладчик при ошибке?

Читать.

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

Дважды зачем?

Затем, что это разные вещи. Всё правильно.

[Sadowod]

Простите, это какие-то происки Delphi
Всё-таки ночью надо спать наверное... А то я себе вбил в голову что ошибка в этой процедуре . Сейчас глянул куда дебагер ставит курсор. Выяснилось что на TStringList.Destroy (он в конце цикла стоял) - хотя я уже несколько альбомов своей оболочкой перекодировал - всё было нормально... Заменил на TStringList.Free - перестал вылетать с ошибкой... Вместо этого выдаёт уже забытое на вид showmessage "Кодирование завершено"...

[Stilet]

Затем, что это разные вещи.

Извиняюсь за оффтоп, разве освобождение процесса не закрывает все его потоки?

Заменил на TStringList.Free

Опа!! Ты чего класс освобождаешь?

[GunSmoker]

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

Извиняюсь за оффтоп, разве освобождение процесса не закрывает все его потоки?

Рихтера читать. Срочно. Закрытие описателя <> закрытие процесса.