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

procedure TNotdienst.StringGrid1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var Temp: TListbox;
begin
  Temp:= (Source as TListbox);
  Stringgrid1.Cells[Stringgrid1.MouseCoord(x,y).X,Stringgrid1.MouseCoord(x,y).Y]:=Temp.Items[Temp.ItemIndex];
end;

procedure TNotdienst.StringGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source = ListBox1;
end;