Почему не получаеться создать поток?

Всем привет! Пишу на делфи прогу с потоком но у меня вылетает ошибка компиляции. подскажите

 

Строчку

Code:

while true do

замени на

Code:

while true do;

 

Все равно таже ошибка(((

 

Выложи полный код, скажу в чем ошибка.

 

замени

Code:

while true do

на

Code:

while true do begin end;

 

Вот код потока

Code:

unit Unit3;

interface

uses
  Classes;

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

implementation

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure TnewThread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ 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;

end.

 

глазки распахни, на скрине:
TForm1.Button1Click

 

вместо:

поставь

 

ага, у кого какие еще версии будут?

автар скопировал код.

до запуска дело не доходит, что вы ему тут втираете, поставь коммент, поставь begin end.

Код хорошенько посмотрите.

 

ТС суров... копировать в код потока TForm1.Button1Click это нечто

 

дак он не в коде потока

 

именно в коде
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;

 

а может надо в uses написать побольше всего? например:
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

и чудесно будет твой код работать

 

бред... ИМХО
компилятор же пишет не какой нить unknown idintefer
а то, что вместо ожидаемой . стоит ;

удали цикл while и думаю скомпилируется

 

дак яж не просто так написал. сам проверил перед этим