Можно ли использовать TNotifyEvent через property, в TThread?

[Человек_Борща]

Доброго времени суток!

Можно ли так делать?

unit CheckUnit;

interface

uses
{$IFDEF VER260}System.Classes{$ELSE}Classes{$ENDIF},
  httpsend;

type
  TResultNotify = procedure(Sender: TObject; var aResult: Boolean) of object;
  TCheckThread = class(TThread)
  private
    fURL: string;
    fResult: Boolean;
    fNotify: TResultNotify;
    fHTTP: THTTPSend;
    procedure SetNotify(aVal: Boolean);
  protected
    procedure Execute; override;
  public
    property OnResult: TResultNotify read fNotify write fNotify;
    constructor Create(const aURL: string = ''); overload;
    destructor Destroy; override;
  end;

implementation

{ TCheckThread }

constructor TCheckThread.Create(const aURL: string);
begin
  inherited Create(True);
  fHTTP := THTTPSend.Create;
  fHTTP.UserAgent :=
    'Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.10.289 Version/12.00';
  fURL := aURL;
end;

destructor TCheckThread.Destroy;
begin
  fHTTP.Free;
  inherited;
end;

procedure TCheckThread.Execute;
var
  bResult: Boolean;
begin
  NameThreadForDebugging('CheckThread');
  inherited FreeOnTerminate := True;
  SetNotify(bResult);
end;

procedure TCheckThread.SetNotify(aVal: Boolean);
begin
  if Assigned(fNotify) then
    fNotify(self, aVal);
end;

end.

Данный трэд создается в VCL и там же тыкается указатель на метод TResultNotify. Мне кажется, поток лезет в VCL без синхронизации..
Как синхронизировать подобные вещи, и можно ли так, вообще делать?

[Аватар]

Мне кажется, поток лезет в VCL без синхронизации

Правильно кажется. Просто используется вызов внешней процедуры, заданной через свойство.

[Человек_Борща]

а как быть? Мне допустим нужно вызвать в VCL процедуру с параметрами....

[Аватар]

а как быть?

Как и обычно - синхронизация облюбованным способом

[Человек_Борща]

Спасибо. Разобрался с проблемой.