Проблема с потоком

[ZekaUa]

Есть поток, созданный таким способом:

type
  TNewThread = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;

implementation

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

procedure TNewThread.Execute;
var ViewObject: IViewObject;
  SRect: TRect;
  screenshot2:TBitmap;
begin
   if Form1.wb1.Document <> nil then
   try
      Form1.wb1.Document.QueryInterface( IViewObject, ViewObject );
      if ViewObject <> nil then
      try
         //screenshot2.Free;
         screenshot2 := TBitmap.Create;
         screenshot2.Width := Form1.wb1.Width;
         screenshot2.Height := Form1.wb1.Height;
         screenshot2.PixelFormat:=pf24bit;
         SRect := Rect( 0, 0, screenshot2.Width, screenshot2.Height );
         ViewObject.Draw( DVASPECT_CONTENT, 1, nil, nil, Form1.wb1.Handle,
                          screenshot2.Canvas.Handle, @SRect, nil, nil, 0 );
         Form1.img1.Width:=Form1.wb1.Width;
         Form1.img1.Height:=Form1.wb1.Height;
         Form1.img1.Canvas.Draw(0,0,screenshot);
         screenshot2.Free;
      finally
         ViewObject._Release;
      end;
   except
   end;
end;

В потоке делается скриншот wb1:TWebBrowser и рисуется в image:TImage. Но проблема в том, что он не рисуется, а просто блокирует image или рисует там белый фон, а если тоже самое делать без потока, то все ок!
Подскажите где ошибка. Заранее спасибо!

P.S.: Поток с другими функциями работает нормально. Если это закинуть в процедуру и вызвать из потока - такая же хрень, а если вызвать из события нажатия кнопки то все работает(

[Aliens_wolfs]

У вас в потоке нет прерывания, синхронизации, грубо говоря паузы, попробуйте вписать в функцию TNewThread.Execute значение sleep(10). Он еще к томуже грузит процессор без этих прерываний. И еще может быть ошибка типа Draw
потому как в потоке нельзя выполнять визуальные действия и прямое обращение, нужно работать по созданым событиям доп. функциям в потоке и вызывать примерно так Synchronize(OnMyDraw), а потом выполнять нужные действия

[ZekaUa]

Sleep не помогает( Добавил вспомогательную процедуру MyDraw и поместил туда тело потока и вызвал ее в потоке - тоже ничего((

[FaTaL]

Потому что к VCL компонентам нельзя обращаться напрямую из потока. При создании потока даже подсказка есть что надо использовать синхронизацию с основным потоком методом Syncronise

[ZekaUa]

Все, все разобрался! С Syncronise все заработало!! УРА!!! УРА!!! УРА!!! Спасибо огромное!