Semaphore init failed.

[Stilet]

Всем доброго. В программе на FPC под Ubuntu 12 выскакивает сообщение
Безымянный.jpg

Вот код:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { tt }

  tt=class(tthread)
    protected
      procedure execute; override;
  end;

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  with tt.Create(true) do begin FreeOnTerminate:=true; start;end;
end;

{$R *.lfm}

{ tt }

procedure tt.execute;
begin
  form1.Caption:='123';
end;

end.

Ошибка выскакивает на создании сопроцесса.

Вопрос: Почему? Как создавать сопроцессы для линукса? Что я не учел?