1:

Spielbrett: array [0..49] of array [0..49] of TCell;

1:
2:
3:
4:

type TCell=record
  Belegt: boolean;
//BelegtDurch: TSpielstein;
end;

1:

Var Feld : Array[0..19,0..19] of TFeld;

1:
2:
3:
4:
5:

TFeld=record
Buchstabe:Char;
Besetzt:Boolean;
...
end;

1:
2:

Var aa:Char;
aa:=Feld[X DIV 20,Y DIV 20].Buchstabe;

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

procedure THauptformLoopit.Image2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
  StartPunkt := ClientToScreen(Point(X,Y));           //Drag & Drop 
  MouseDown:= True;                                   //Drag & Drop
round(X/10)*10; round(Y/10)*10;
End;

1:

 Spielstein.Left := round(X/10)*10;

1:
2:

  DragDelta.X := X-Spielstein.Left; //Y analog
  MouseDown := true;

1:

  MouseDown := false;

1:
2:
3:
4:

  if MouseDown then
     begin
       Spielstein.Left := X-DragDelta.X;  //PS: hier brauchen wir zusätzlich den round-Code von oben für die Rasterung.
     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:

procedure THauptformLoopit.Spielstein1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
  StartPunkt := ClientToScreen(Point(X,Y));
  MouseDown:= True;
End;

procedure THauptformLoopit.Spielstein1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var AktuellerPlatz: TPoint;
Begin
  If MouseDown then
   with Sender as TImage do
   Begin
     AktuellerPlatz := ClientToScreen(Point(X,Y));
     x := round(Y/11)*11;
     Left:= AktuellerPlatz.X - StartPunkt.X;
     y := (round(Y/11)*11);
     Top:= AktuellerPlatz.Y -StartPunkt.Y
   End;
End;

procedure THauptformLoopit.Spielstein1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
    MouseDown:=False;
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:

var
  Clicked: boolean;
  DragDelta: TPoint;
  DragObject: TPanel;

[...]

procedure TForm1.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Clicked := true;
  DragDelta.X := X;
  DragDelta.Y := Y;
  DragObject :=  Sender as TPanel;
end;

procedure TForm1.Panel2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Clicked := false;
end;

procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var Pos: TPoint;
begin
  if Clicked then
    begin
      Pos := (Sender as TWinControl).ClientToScreen( Point(X-DragDelta.X,Y-DragDelta.Y) );
      //Pos.X := round(Pos.X/55)*55;      //RasterungX
      //Pos.Y := round(Pos.Y/15)*15;      //RasterungY

      Pos := Form1.ScreenToClient( Pos );

      DragObject.Left := Pos.X;
      DragObject.Top  := Pos.Y;
    end;
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

type
    TZelle=record
      Beleget : boolean;
      BelegtDuch:String;
    end;
    Spielbrett= array [0..10] of array [0..10] of TZelle;


var MouseDown:boolean;
    StartPunkt: TPoint;
    path : string;
    DragDelta: TPoint;
    DragObject: TPanel;
    Bild:TBitmap;
Begin
   Bild := TBitmap.Create;
   SpielsteinPfad := 'Spielsteine\'+Zufallsstein;
   path := ExtractFilePath(Application.ExeName) + SpielsteinPfad;
End;

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

procedure THauptformLoopit.SGFieldDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var Tester:Tzelle;
begin
  if (ACol = 5) and (ARow=5) then
     BEGIN
       Bild.LoadFromFile(path);
       SGField.Canvas.StretchDraw(Rect, Bild);
     END;
end;

procedure THauptformLoopit.SGFieldMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var col, row : integer;
begin
  SGField.MouseToCell(X, Y, col, row);
  SGField.refresh;
end;