お世話になります。3maです。

早速、お知恵をお借りしたいのですが。
現在、TNetHTTPClientを使用して、ネットワークカメラのストリーミング受信にて
映像を表示しています。

OnReceiveDataにてAbortにTrueを指定して、受信を終了しています。

そこまでは、どうにかうまく動いています。

しかし、受信中にアプリを終了させるなどすると、
受信スレッドが終了する前(OnReceiveDataが呼ばれる前)に破棄されるため、
エラーとメモリリークが発生してしまいます。

なんとか、外からTNetHTTPClientのスレッドを強制的に終了させる方法は無いでしょうか？

現在の対処案
1.終了の時だから、エラーとリークは無視する…(!)
2.このコンポーネト使用者に、終了する前に必ずActive := False;を実行させる事を強制する…(!)
3.TNetHTTPClientみたいなクラスを書き起こす…(!!)

よろしくお願いいたします。

以下、クラスの抜粋です。

TNetcameraView = class(TControl)
private
  FHTTPView: TNetHTTPClient;
  FActive: Boolean;
  FAbortRequest: Boolean;
  FAborted: Boolean;
protected
  procedure ViewReceiveData(const Sender: TObject; ... var Abort: Boolean);
published
  property Active: Boolean read FActive write SetActive;
end;

constructor TNetCameraView.Create(Sender: TObject);
begin
  inherited;

  FHTTPView := TNetHTTPClient.Create( nil );
  FHTTPView.OnReceiveData := ViewReceiveData;
  FHTTPView.Asynchronous := True;
end;

destructor TNetcameraView.Destroy(Sender: TObject);
begin
  Active := False;   // ここでスレッドを終了させようとするが間に合わない。

//  while( not( Aborted ) )do  // OnReceiveDataはSynchronizeで呼び出されるのでこんな事をしても無駄
//    Sleep( 1 );

//  FHTTPView.ASyncAbort;  // こんな手続きがあれば理想だけど、

  FHTTPView.DisposeOf;
end;

procedure TNetCameraView.ViewRecieveData(Sender: TObject; ... var Abort: Boolean);
begin
  if( FAbortRequest )then
  begin
    Abort := True;
    FAborted := True;
    Exit;
  end;

  // 以下受信処理
end;

procedure TNetCameraView.SetActive(const Value: Boolean);
begin
   FActive := Value;
  if( Active )then
  begin
    FAbortRequest := False;
    FAborted := False;
    FHTTPView.Get( URL, FStream );
  end else
    FAbortRequest := True;
end;