Program test;
var
menge : integer;
validquelle, validziel : boolean
const
zielbp = $4167A92B
quellbp= $400F8834
tauschruby = $4167B8BE
begin
menge := GetQuantity(tauschruby);
validquelle := IsObjektExists(quellbbp)
validziel := IsObjektExists(zielbp)
if(menge = >0) and (validquelle) and (validziel) then
begin
DragItem(tauschruby, quelbp, 15);
DropItem(tauschruby, zielbp, 0,0,0);
end;
end.