Хм, если нужно заблюрить картинку... можно сделать так:
Program blur;
Uses alpha;
var
i:integer;
img:image;
begin
img:=setOpaque(LoadImage ('/pic.png'),32);
for i:=1 to 20 do
begin
drawImage (img,random (8),random (8));
end;
img:=imagefromcanvas (0,0,GetImageWidth(img),GetImageHeight(img));
drawImage (img,0,0);
repaint;
repeat
delay (1);
Until (GetKeyPressed=KE_KEY0);
end.
Результат до и после:
Рекомендую побаловаться со счетчиком i, с величиной прозрачности и с величиной случайного разброса для достижения набольшего эффекта