Страшныи баг

Страшныи баг то ли в FMXLinuxe-e, толи в самом FMX-e под Linux-om. Вот код:

Procedure TmyThread.Execute;
Var i :Integer;
    s :TStringList;
Begin
  i := 0;
  While i < 10 Do begin
    If i > 2 Then
      Try
        s.Strings[4] := ''
      Except
        On e: Exception Do Begin
          MyMainForm.Memo1.Lines.Add(e.Message);
        End;
      End
    Else
      MyMainForm.Memo1.Lines.Add(i.ToString);
    sleep(1000);
    Inc(i);
  End;
End;

Под wиндои если получаем AV в потоке, то срабатывает обработчик ексепшена, а под Linux-ом апликация просто закривается без каки либо сообшении, просто падает ...

Есть иде как побороть?

WBR Janex

Comments (1)