Как ускорить чёрно-белое преобразование

[DelhiProgramer]

У меня есть код с попиксельным преобразованием их цвета в чёрно-белые оттенки:

var
x,y,sr: integer;
begin
for x:=0 to screen.Width do for y:=0 to screen.Height do
begin
sr:=Round(0.299*GetRValue(SCR.Pixels[x,y]))+Round(0.587*GetGValue(SCR.Pixels[x,y]))+Round(0.114*GetBValue(SCR.Pixels[x,y]));
SCR.Pixels[x,y]:=RGB(sr,sr,sr);
end;

Помоему очень не оптимально, и работает слишком медленно. Можно ли как-то это ускорить или сделать по другому?

[Пепел Феникса]

читаем про scanline