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

var x, y : Integer;
    Wert1, Wert2 : TColor;
begin
  for y:=0 to 199 do
    for x:=0 to 399 do
      begin
        Wert1:=Image_1.Canvas.Pixels[x, y];
        Wert2:=Image_2.Canvas.Pixels[x, y];
        if (Wert1=clBlack) AND (Wert2=clBlack)
          then Image_Ges.Canvas.Pixels[x, y]:=clBlack
          else Image_Ges.Canvas.Pixels[x, y]:=clWhite;
      end;
end;					

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:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:

program roessel;
//Alle Spielfelder per Roesselsprung erreichen
{$IFDEF FPC}{$MODE DELPHI}{$ELSE}{$APPTYPE CONSOLE}{$ENDIF}
uses
  sysutils;
const
  cLaenge = 8;
  cHoehe  = 5;
  cCount  = cLaenge*cHoehe;

type
  //Spielfeld von 1..cLaenge,1..cHoehe. belegt == true/ frei == false
  tSpielfeld = array[-1..cLaenge+2,-1..cHoehe+2] of boolean;
  tDelta = record
             dl,dh : integer;
           end;
  tarrDelta = array[0..7] of tDelta;
  tPosition = record
                actLaenge,
                actHoehe : integer;
              end;
  tAblauf = array[1..cCount] of tPosition;

const
  cDelta : tarrDelta = ((dl:-1;dh:-2),
                        (dl:-1;dh:+2),
                        (dl:-2;dh:-1),
                        (dl:-2;dh:+1),
                        (dl:+1;dh:-2),
                        (dl:+1;dh:+2),
                        (dl:+2;dh:-1),
                        (dl:+2;dh:+1));
var
  Spielfeld : tSpielfeld;
  Ablauf    : tAblauf;
  cnt,Anzahl: integer;

procedure Init(var sf:tSpielfeld);
var
  l,h: integer;
Begin
  cnt := cCount;
  Anzahl := 0;
  Fillchar(Ablauf,sizeof(Ablauf),#0);
  Fillchar(sf,sizeof(sf),chr(ord(True)));
  For l := 1 to cLaenge do
    For h := 1 to cHoehe do
      sf[l,h] := false;
end;

procedure Spielzugausgeben;
var
  l,h: integer;
Begin
  l := cLaenge;
  For h := cCount downto 1 do
  Begin
    with Ablauf[h] do
      write(chr(actLaenge+64),'|',actHoehe,'->');
    dec(l);
    If l <= 0 then
    Begin
      l := cLaenge;
      writeln;
    end;
  end;
end;

procedure NextStep(position:tPosition);
var
  dir: integer;
  neuPos : tPosition;
begin
  with position do
    Spielfeld[actLaenge,actHoehe]:= true;
  Ablauf[cnt] := Position;

  For dir := 0 to 7 do
  Begin
    neupos := Position;
    with neuPos do
    Begin
      actLaenge:= position.actLaenge +cDelta[dir].dl;
      actHoehe := position.actHoehe  +cDelta[dir].dh;
      IF Not(Spielfeld[actLaenge,actHoehe]) then
      Begin
        dec(cnt);
        IF cnt <=1 then
        Begin
          inc(Anzahl);
          Ablauf[cnt] := neuPos;
          IF anzahl >=1 then
          Begin
            SpielZugAusgeben; Halt(0);
          end;
        end;
        NextStep(neuPos);
        inc(cnt);
      end;
    end;
  end;

  with position do
    Spielfeld[actLaenge,actHoehe]:= false;
end;
var
  StartPosition : tPosition;
Begin
  Init(Spielfeld);
  with StartPosition do
  Begin
    actLaenge:= 1;
    actHoehe := 1;
  end;
  NextStep(StartPosition);
  Spielzugausgeben;
end.
{
A|1->B|3->A|5->C|4->B|2->A|4->C|3->B|1->
A|3->B|5->D|4->C|2->B|4->A|2->C|1->E|2->
G|1->H|3->G|5->F|3->E|5->G|4->H|2->F|1->
D|2->E|4->C|5->D|3->E|1->G|2->H|4->F|5->
E|3->D|1->F|2->H|1->G|3->H|5->F|4->D|5->

real  0m0.038s
}