Funktion mit Paramtern in einem Thread

[Xerogon]

Hallo,
ich habe mich in letzter Zeit mit Threads beschäftigt und bekomme diese auch ohne Probleme zum laufen.
Das aber nur wenn meine Funktion keine Parameter erwartet. ich weiß nicht wie ich das lösen soll.

Mein Code:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function Test (a: Integer): Integer;
begin
  ShowMessage(IntToStr(a));
  Result := a;
end;



procedure TForm1.FormCreate(Sender: TObject);
var ID: Cardinal;
    Handle: THandle;
begin
  Handle := BeginThread(nil, 0, @Test(20), nil, 0, ID);  //geht nicht
  Handle := BeginThread(nil, 0, (@Test(20)), nil, 0, ID);  //geht auch nicht
end;

end.

Ich komm einfach nicht drauf