1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.ButtonClick(Sender: TObject);
var i,j,farbe:integer; 
     s:string;
begin
   memo1.clear;
   s:='';
   for i:=0 to image1.height-1 do
     for j:=0 to image1.width-1 do begin
       farbe:=image1.canvas.pixels[j,i] mod 256;
       s:=s+chr(farbe);
     end; 
   memo1.Text:=s;
end;					

1:
2:

for y:=0 to image1.height-1 do
     for x:=0 to image1.width-1 do begin					

1:
2:

for x:=0 to image1.width-1 do 
    for y:=0 to image1.height-1 do begin					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

// there can only be one queen in each row or column
// position[i] defines the row of the queen on the i-th column
// 
// recursively attempt to place a queen on each row of the next column
// 
// an area of 5x5 squares around a queen always has to be empty
// .. so skip the five rows around the previous two placements

const solve = (boardSize) => {
  const position = [];
  const solutions = [];

  const humanReadable = () => position.map(
    (row, col) => "ABCDEFGHIJKLMNOPQRSTUVWXYZ"[col] + (row+1)
  ).join();

  const step = (skip, skip2) => {
    const skips = skip < skip2 ?
      [0, skip, skip2, boardSize + 5] :
      [0, skip2, skip, boardSize + 5];

    for (let s = 2; s >= 0; s--) {
      for (let row = skips[s+1] - 6; row >= skips[s]; row--) {
        if (hasCollision(row)) continue;

        position.push(row);
        if (position.length === boardSize) {
          solutions.push(humanReadable());
          position.pop();
          continue;
        }

        step(row + 3, skip);
        position.pop();
      }
    }
  };

  const hasCollision = (row) => {
    const col = position.length;
    for (let i = col - 1; i >= 0; i--) {
      if (
        row === position[i]           ||  // horizontal collision
        row === position[i] + col - i ||  // .. downwards diagonal
        row === position[i] - col + i     // .. upwards diagonal
      ) {
//        console.log(...position, row, "BAM");
        return true;
      }
    }
//    console.log(...position, row, "OK");
    return false;
  };

  step(boardSize + 5, boardSize + 5);
  return solutions;
};					

1:
2:
3:
4:
5:
6:
7:

>> solve(10)
<< [
  "A8,B5,C2,D10,E7,F4,G1,H9,I6,J3",
  "A7,B3,C10,D6,E2,F9,G5,H1,I8,J4",
  "A4,B8,C1,D5,E9,F2,G6,H10,I3,J7",
  "A3,B6,C9,D1,E4,F7,G10,H2,I5,J8"
]