[Помогите!] [Delphi] Потоки

[Dimedrol1536]

Создаю поток, который проигрывает mp3.

  mPotok3:=Potok3.Create(False);
  mPotok3.Priority:=tpNormal;

При закрытии приложения получаю ошибки.
[Ссылки могут видеть только зарегистрированные пользователи. ]
Перепробовал разные варианты при создании формы - в итоге ошибка.
А если поток создать в обработчике кнопки и запустить его - форма нормально закрывается.

[NebesaBag]

Скриншот не видно.
Поток вы освобождаете?
FreeAndNil(mPotok3);

[Dimedrol1536]

Exception EOSError......
System Error. Code:1400
Недоступный дескриптор окна.

Цитата: FreeAndNil(mPotok3);

Где его освобождать?

Вот сам поток.

procedure Potok3.Execute();
var
rStream: TResourceStream;
fStream: TFileStream;
fname: string;
begin

begin
  //эта часть извлекает mp3 из exe
  fname := 'resurs/Track.mp3';
  rStream := TResourceStream.Create(hInstance, 'Track', RT_RCDATA) ;
    try
      fStream := TFileStream.Create(fname, fmCreate) ;
        try
          fStream.CopyFrom(rStream, 0) ;
          finally
        fStream.Free;
      end;
    finally
  rStream.Free;
end;
//эта часть проигрывает mp3
FMain.MediaPlayer1.Close;
FMain.MediaPlayer1.FileName:= fname;
FMain.MediaPlayer1.Open;
FMain.MediaPlayer1.Play;
end;
end;

Добавлено через 29 минут
На самом деле проблема с потоками

Добавлено через 2 часа 11 минут
По сути всего, у меня не правильно потоки сделаны.

  mPotok1:=Potok3.Create(False);
  mPotok1.Priority:=tpNormal;

Так мы создаём поток. В этом патоке есть некая функция с некоторыми переменными.
Есть у меня 5 процедур, через которые я передаю глобально переменные(читал что это очень плохо), вариантов пока не вижу других.
И естественно в каждой процедуре использую

  mPotok1:=Potok3.Create(False);
  mPotok1.Priority:=tpNormal;

Как правильно это всё оформить?

[Dinmaite]

Весь код выкладывать надо, или большие куски, относящиеся к сути вопроса.
Данные лучше всего передавать или в критической секции, или в синхронизированной процедуре, или до запуска потока.

Вообще делается так как в аттаче(создание+освобождение+передача данных синхронизацией).

[Dimedrol1536]

Пошел я по другому пути, через API (BeginThread)

procedure TFMain.Action9Execute(Sender: TObject);
var
  dwID: dword;
begin
   ThrHandle:=BeginThread(nil, 0, @ThreadFun1, PThreadData(1), 0, dwID);
   if ThrHandle<>0 then
      CloseHandle(ThrHandle);
end;

Если раз 5 запустить, получим краш.

[RenatPro]

Цитата: Сообщение от Dimedrol1536 Пошел я по другому пути, через API (BeginThread) procedure TFMain.Action9Execute(Sender: TObject); var dwID: dword; begin ThrHandle:=BeginThread(nil, 0, @ThreadFun1, PThreadData(1), 0, dwID); if ThrHandle<>0 then CloseHandle(ThrHandle); end; Если раз 5 запустить, получим краш.

Скорей всего тебе это надо кусок из моего компонента вот ссылка http://zhyk.ru/forum/showpost.php?p=5137840&postcount=1 посмотри может поможет я тоже долго мучился)

Цитата: //удаляем все таймеры из памяти procedure TLINEAGE.TimFree; var i: integer; begin Time_Key := nil; Time_Wnd := nil; Time_Replace := nil; Time_Real := nil; Time_Color := nil; for i := 1 to High(Timer) do begin Timer[i].Enabled := False; Timer[i].Destroy; end; Timer := nil; end;