Как узнать номер потока из самого потока?

[GaMeSTeR]

Как узнать номер потока
потоки запускаю вот так

var
Form1: TForm1;
tid:array[1..999] of integer;
implementation

{$R *.dfm}

procedure ThreadFunc;
var
i:integer;
begin
for i:=1 to 1000 do form1.label1.caption:=inttostr(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
id:longword;
i:integer;
begin
t:=strtoint(edit1.Text);
for i:=1 to t do
tid[i]:=beginthread(nil,0,Addr(ThreadFunc ),nil,0,id);
end;

Нужно чтобы поток знал свой номер например showmessge('#'+НОМЕР ПОТОКА+': делаю ......')