This should work, may need a few tweeks.
Program Dropper;
{.include SRL\SRL.scar}
{.include srl\srl\skill\mining.scar}
Procedure Drop2;
Var
DTMOre : integer;
begin
If not (Loggedin) then
Exit;
Status('Dropping Ores');
Players[CurrentPlayer].loc := 'Dropping Ores';
DTMOre := DTMFromString('78DA639CC4C4C060CBC8800CBC7415191E026' +
'990E87F20606C04AA7144550391859140BA17A8C680809A794035' +
'A604D4CC01AA7121A0A607A8C69B809A36A01A73026AA603D518E' +
'257030091BF0C02');
GameTab(4);
Repeat
If(FindDtmIn(x, y, DTMOre, MIX1, MIY1, MIX2, MIY2))then
begin
mouse(x, y, 5, 5, false);
wait(100 + random(50));
if(ClickText2('Drop', UpChars, 555, 205, 740, 464, true))then
begin
Wait(450 + random(250)); //If it drops too fast, change this line to higher numbers.
end else
ChooseOption(x, y, 'Cancel');
end;
until not(FindDtmIn(x, y, DTMOre, MIX1, MIY1, MIX2, MIY2))
FreeDTM(DTMOre);
end;
begin
SetupSRL;
SetupSRLMining
BenMouse := false;
Drop2;
end.