type
  TForm1=class(TForm)
  private
    DataContainer: TContainer;

    DataContainerChange(Sender: TObject);
  end;

procedure TForm1.Create(Sender: TObject);
begin
  DataContainer := TContainer.Create;
  DataContainer.OnChange := DataContainerChange;
end;

procedure TForm1.DataContainerChange(Sender: TObject);
begin
  ShowMessage('Thread hat Daten verändert :-)');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Th: TMyThread;
begin
  Th: TMyThread.Create(True);
  // Th.s:=@s_thread;
  Th.DataContainer := DataContainer;
  Th.resume;
end;