Зависание потока

[bilibian]

XE5, на сколько мне известно, то секция try будет работать не полностью если встретит ошибку, а лишь до того места где эта ошибка возникнет, после чего уйдет в исключение. Или я не прав?

[XE5]

Повторяю ещё раз. В секции try except вы описали синхронизацию. Ошибки синхронизации будут игнорироваться. Итог:
Программа работает, а результат нулевой. Знакома ситуация?

[STRELOK-2007]

Вообще я всегда использую для потоков вот такую заготовку, работает безотказно.

unit Unit1;

interface
uses SysUtils, Classes;

type
 TTestThread = class (TThread)
  protected
   procedure Execute; override;
   procedure Work; virtual;
   procedure Fail(E: Exception); virtual;

  public
   constructor Create; virtual;
 end;

implementation

{ TTestThread }

constructor TTestThread.Create;
begin
 inherited Create(True);
 FreeOnTerminate:=True;
end;

procedure TTestThread.Execute;
begin
 try
  Work;
 except
  on E: Exception do
   Fail(E);
 end;
end;

procedure TTestThread.Fail(E: Exception);
begin
 //handle exceptions here
end;

procedure TTestThread.Work;
begin
 //work here
end;

end.

[bilibian]

STRELOK-2007, очень интересно! Взял в оборот, спасибо