Need help with dropping.

Ok so I made a script, thanks to the tut on this site But I have no Idea how to make the script drop the ores take a look
(its pretty simple)

--------------------------------------------------------------------------

program ScottysPowerminer;

Var
i,x,y: Integer;

Const
RockColor1= 8421770;//Set the color of the Rock
RockCOlor2= 8421770;//Set another color of the Rock
Orecolor= 3559008;//The Color of ore you are dropping


Procedure Introduction;
begin
ClearDebug;
Writeln('Hi, welcome to ScottysPowerminer!');
Wait(1000);
Writeln('Please let me know if there are any bugs, and enjoy your autoing!');
end;

Procedure Mine;
begin
i:= 0;
repeat
i:= i + 1;
If(FindColor(x,y,Rockcolor1,0,0,517,337)) and
(FIndColor(x,y,RockColor2,0,0,517,337)) then
begin
Writeln('Now Mining')
MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
ClickMouse(x,y,true);
Wait(10000+random(500));
end;
until(false);
end;

begin
Introduction;
Mine;
End.

--------------------------------------------------------------------------
As you can see, I put "Orecolor" in the const area because thats what I want it to be (if you get what I mean) Any ideas on how to write a dropping procedure for this?
Thanks

 

this script = ban.

use SRL.