Welche Komponente führt die Metode aus?

[napsterxx]

Delphi-Quellcode:

procedure TForm2.JvThread1Execute(Sender: TObject; Params: Pointer);
begin
  if Sender is TJvThread then
    ShowMessage((Sender as TJvThread).Name);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  JvThread1.ThreadDialog := nil;
  JvThread1.Execute(self);
end;

Selbst das geht nicht