FOR-Loop - jak zrobić przeskoki X:=X+20;

Witam.
Mam problem z pętlą bo chce skanować piksele 2 screenów (np moja rozdzielczość to 1920x1080) i długo to by trwało piksel po pikselu i chciałem robić przeskoki po 20 pikseli ale w pętli (for .. to .. do) nie mogę zrobić np X:=X+20; bo pisze FOR-Loop i nie wiem jak zrobić te przeskoki ?

  x:=0;
  while x<1920 do
  begin
    //jakieś operacje z wykorzystaniem x
    Inc(x,20);
  end;

Możesz zachować pętle for

for X := 0 to (Screen.Width - 1) div 20 do  //Pętla 0 do Szerokość podzielić na 20
  for Y := 0 to (Screen.Height - 1) div 20 do  //Pętla 0 do Wysokośc podzielić na 20
    begin
      Col := Canvas.Pixels[X*20, Y * 20]  //Zwraca kolor pixela w punkcie X*20, Y*20
      cos z tym tam...
    end;

W zmiennej Col, typu TColor Jest kolor tego pixela.

dzięki działa ;]