TJvThread

[Aleksandr69]

Помогите пытаюсь понять как работает компонент ничего не выходит

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, JvThread, JvComponentBase;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    JvThread1: TJvThread;
    Button1: TButton;
    procedure JvThread1Execute(Sender: TObject; params: Pointer);
    procedure Button1Click(Sender: TObject);
  private
  public
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.JvThread1Execute(Sender: TObject; params: Pointer);
begin
showmessage('7687');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
JvThread1.Execute(self);
end;

end.