Поток и canvas

[NEoMASTERR]

Здравствуйте, имеется компонент который при создании создает некий эффект размытия, но форма виснет, подскажите как запустить в потоке из самого компонента? (компонент самостоятельный и код из других юнитов не должен его трогать)

Процедурка на размытие которую надо запустить в поток. В общем первый раз с таким сталкиваюсь, прошу помощи у знающих. Процедура GBlur слишком большая чтобы ее сюда помещать (наверное).

TMyPanel = class(TGraphicControl)

procedure TMyPanel.BlurShow;
begin
  //FBlur:single = 10.6 и опускается до 0.6 принудительно в конце
  while FBlur>=0 do
  begin
    FBlur:=FBlur - 1;
    paint;
  end;
  FBlur:=0.6;
  paint;
end;

procedure TMyPanel.paint;
var
//..
begin
//..
    GBlur(b,FBlur);
//..
end;

Пробовал через createthread, beginthread но компилятор ругается

BeginThread(nil,0,addr(BlurShow),nil,0,thrid);

[lomastr_]

вы читали про BeginThread?
какой смысл в потоке?

[NEoMASTERR]

Сообщение от lomastr_

вы читали про BeginThread?
какой смысл в потоке?

смысл в том чтобы не лагала форма при появлении компонента, если есть иные варианты решения проблемы, хоть весь компонент переделать, я выслушаю, я здесь за этим, а не за вопросами на мой вопрос
В идеале компонент при появлении должен красиво из размытия стать чётким, без лагов

[NEoMASTERR]

Ответ найден, использовал SetTimer вместо потоков