aus procedure thread machen

[stefan2005]

hi,
komisch

bei mir funktioniert es so einwandfrei (Delphi 6):

Delphi-Quellcode:

program ThreadTest;
{$APPTYPE CONSOLE}
uses Windows;

var ThreadID : Cardinal;

function meineFunktion: Integer;
begin
  Writeln('Der neue Thread');
end;

begin
  Writeln('Der Hauptthread');
  BeginThread(nil,0,@meineFunktion,nil,0,ThreadID);
  Readln;
end.

cu,
stefan2005