Synkronisering af VCL kald i tråd startet med BeginThread

Tricket er at TThread også har en Synchronize som er defineret som en klassefuntion der tager to parametre (AThread og AMethod). Det fine er at AThread kan være nil!
Her er noget kode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure foo;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

function test(Parameter : Pointer) : Integer;
begin
  // Lav trådgymnastik her:
  // .....
  // lav et synkroniseret kald til TForm1.foo:
  TThread.Synchronize( nil, TForm1(Parameter).foo );
  // stop tråden med exitcode 0:
  EndThread(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  threadid : Cardinal;
begin
  // giv formobjektet med som parameter til test
  BeginThread( nil, 0, test, self, 0, threadid );
end;

procedure TForm1.foo;
begin
  showmessage ( 'hello');
end;

end.

Absolut perfekt... Tusinde tak for hjælpen :D