именно в коде
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 и думаю скомпилируется

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