Fragen zu Threads: Prozedur als Thread ausführen

[Pseudemys Nelsoni]

hi whissi,

versuchs mal so:

Delphi-Quellcode:

procedure blub;
var
  i: integer;
begin
  for i := 0 to 1000000 do
    Form1.ListBox1.Items.Add(IntToStr(i));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  id: cardinal;
begin
  createthread(nil, 0, @blub, nil, 0, id);
end;