запись с массива в массив тормозит?

[valgusk]

я новичек в Дельфях, пытаюсь сделать попиксельную обработку на поверхности Direct Draw у меня имеются два указателя на разные поверхности AdresVideo и AdresVideo1

в таком куске кода
for i := 0 to 479 do
for j := 0 to 649 do
begin
bla2:=AdresVideo1[(j*4)+1 + i * SurfaceDesc1.lPitch] ;
AdresVideo[(j*4) + i * SurfaceDesc.lPitch] := random(200) ;
AdresVideo[(j*4)+1 + i * SurfaceDesc.lPitch] :=random(200) ;
AdresVideo[(j*4)+2 + i * SurfaceDesc.lPitch] := random(200) ;
end;

никаких проблем, по отдельности и записывает и считывает с массивов достойно - 85 фпс и то только изза ограничения.Спокойно выдерживает даже после добавления какой-нить сложной математики.
а вот стоит только сделать так:

for i := 0 to 479 do
for j := 0 to 649 do
begin
bla2:=AdresVideo1[(j*4)+1 + i * SurfaceDesc1.lPitch] ;
AdresVideo[(j*4) + i * SurfaceDesc.lPitch] := bla2 ;
AdresVideo[(j*4)+1 + i * SurfaceDesc.lPitch] :=random(200) ;
AdresVideo[(j*4)+2 + i * SurfaceDesc.lPitch] := random(200) ;
end;

как вижу 4 фпс

Я вот думаю, это что? я глючу, делфя 7 глючит или я не знаю какой-то нюанс, особенность среды? ибо слишком медленно по-моему.
Может кто знает как можно помочь?


UPD
все, спасибо, не надо. Кому интересно дело было в том, что данные брались с поверхности на поверхность, ибо простой scanline с tbitmap оставил фпс на вышке =)