unit Unit2;

interface

uses
   Classes, Unit1;

type
TThread = 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 TThread.UpdateCaption;
     begin
       Form1.Caption := 'Updated in a thread';
     end; }

{ TThread }

procedure TThread.Execute;
begin
Showmessage('ololo');
end;
end.

Вот красную строку вечно подсвечивает красным

procedure TXThread.Execute;
begin
Showmessage('ololo');
end;
end.

У тебя переменная XThread обявлена так :

Добавлено (04 Фев 2010, 09:56)
---------------------------------------------
Сейчас погоди сделаю несколько скринов, на этот раз D7;
Sleep(600000);

Добавлено (04 Фев 2010, 11:37)
---------------------------------------------
Попробуй :

Добавлено (04 Фев 2010, 16:20)
---------------------------------------------
УНЫЛЫЙ ГОВНОПОТОК КАКБЭ ПОПЯЧЕН!11