Problem z kodem

Wklejam kodzik mojeje procedurki ktora powinna dzialac ale nie dziala, czy ktos moglby mi pomoc?

procedure tform1.rysuj;
begin
dxdib1.DIB.Assign(dxdraw1.Primary);
dxdib1.DIB.Blur(24,5);
dximagelist1.Items[33].picture.Assign(dxdib1.dib);
dximagelist1.Items[33].Draw(dxdraw1.surface,0,0,0);
dxdraw1.Flip;
end;

oczywiscie na formatce dxdraw jest juz rysunek. zmiana na blur rozwniez dziala, nie dziala przypisanie :(.
a moze znacie inny sposob aby takie cos osiagnac?

z gory dzieki....

juz sobie poradzilem ;)

procedure tform1.rysuj;
begin
dxdib1.DIB.Assign(dxdraw1.Primary);
dxdib1.DIB.Blur(24,5);
dxdraw1.Surface.Canvas.Draw(0,0,dxdib1.DIB);
dxdraw1.Surface.Canvas.Release;
dxdraw1.Flip;
end;

(tylko troche to wolne)