Добавить строку в потоке

[D!zel]

Привет всем.

Нужно добавить текст в RichEdit в потоке... Испробовал кучу вариантов, но ничего не получается...
Код выглядит следующим образом:

{класс потока}
type
 ThP = class(TThread)
  public
   constructor Create;
   destructor Destroy; override;
  protected
   procedure Add;
   procedure Execute; override;
  end;

var
 hP: ThP;

constructor ThP.Create;
begin
 inherited Create(False);
end;

destructor ThP.Destroy;
begin
 inherited Destroy;
end;

procedure ThP.Add;
var
 Text: string;
begin
... тут код, который "генерирует" текст и загоняет его в переменную Text ...
 Form1.RichEdit1.Lines.Add(Text);
end;

procedure ThP.Execute;
begin
 while not Terminated do
  begin
   Synchronize(Add);
  end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
...
 hP := ThP.Create;
 hP.Priority := tpNormal;
end;

Помогите, пожалуйста... третий день сижу, так и не понял, в чем проблема.

[D!zel]

Проблема решена.

[Timoncheg]

Сообщение от D!zel

Проблема решена.

как решил?

[zvygin1964]

Да, покажите от

unit Unit1; 
interface //до 
..........................
end.

[IliaIT]

procedure ThP.Execute;
begin
 while not Terminated do
  begin
   Synchronize(Add);
  end
end;

sleep(500) добавил в цикл?