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:

procedure TRotation.MemoDMouseDown(Sender: TObject; Button: TMouseButton;
                                    Shift: TShiftState; X, Y: Integer);
  var Zeile:String;
      Nr,ACol,ARow,K:Integer;
  begin
   Nr:=SendMessage(MemoD.Handle,EM_LINEFROMCHAR,MemoD.SelStart,0); // Zeilennummer im Memo
   Zeile:=MemoD.Lines[Nr];
   if Nr<MemoD.Lines.Count then
    for K:=1 to 3 do
     begin
      ACol:=StrToInt(Zeile[2]);
      ARow:=StrToInt(Zeile[6]);
      Drehen(ACol,ARow);
      Ausgeben;
      Delay(500); // halbe Sekunde warten
      inc(ZugAN);
      LabelZN.Caption:='Zugnummer '+IntToStr(ZugAN)+' / '+IntToStr(SperreAN);
      if Fertig then
       begin
        Ausgabe.Enabled:=False;
        SpielAbbruch:=True;
        Gestartet:=False;
        MemoD.Enabled:=False;
        Width:=252;
       end
     end
  end;