[Grimm]

Хочу запустить код в отдельном потоке, классы не изучал. Наткнулся на код примера:

Код:

TNewThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TNewThread }

procedure TNewThread.Execute;
begin
  while true do {ничего не делаем};
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  NewThread: TNewThread;
begin
  NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
  NewThread.Resume;
end;

Admin: Пользуемся тегами!

Вот не пойму, как можно сделать этот пример на простой форме, ни как не запускается ((