Threads - como montar uma thread

private

  MyThread: Thread;

  procedure Movebar;

end;

procedure TWinForm.MoveBar;

var

  I: Integer;

begin

  I := 0;

  while I <= 1000 do

  begin

    Caption := I.ToString;

 Inc(I);

  end; 

end;

procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);

begin

  MyThread:= Thread.Create(MoveBar);

  MyThread.Priority := ThreadPriority.Lowest;

  MyThread.Start;

end;