for(i=height-1;i>=height-count;i--)此句如何转为delphi程序？ ( 积分: 200 )

procedure TMyPicture.LevelProjection(Bitmap: TBitmap; Level: Boolean);
var
   X, Y, i, j: integer;
   P, Q: pByteArray;
   newbmp: TBitmap;
   number: integer;
begin
   newbmp := TBitmap.Create;
   // 动态创建TBitmap对象
   newbmp.Width := bitmap.Width;
   newbmp.Height := bitmap.Height;
   //原位图的高度和宽度赋给新的位图
   newbmp.Assign(bitmap);
   // 拷贝位图到newbmp
   if (Level) then //Level为真表示进行水平投影
   begin
      for X := 0 to bitmap.Width - 1 do
      begin
         P := newbmp.ScanLine[X];
         Q := bitmap.ScanLine[X];
         number := 0;
         // 设置每一列扫描的初值
         for Y := 0 to bitmap.Height - 1 do
         begin
            if ((Q[3 * Y + 2] = 255) and (Q[3 * Y + 1] = 255) and (Q[3
               * Y] = 255)) then
               number := number + 1;
            // 统计每一行的白色点的数目，记录为number
         end;
         for i := 0 to [:D][h1][u][b][red]number-1[/red][/b][/u][/h1] do
         begin
            P[3 * i] := 0;
            P[3 * i + 1] := 0;
            P[3 * i + 2] := 0;
         end;
         // 从上面开始,给一列number个像素点涂上黑色
         for j :=bitmap.Height - 1  downto bitmap.Height - number do
         begin
            P[3 * j] := 255;
            P[3 * j + 1] := 255;
            P[3 * j + 2] := 255;
         end;
         // 其他点涂白色
      end;
      bitmap.Assign(newbmp);
      newbmp.Free;
   end;
end;