Here's a Fix:
SCAR Code:
///////////\\\\\\\\\\\\
////////////\\\\\\\\\\\\\
//Oober Iron Power Miner\\\
////////Instructions\\\\\\\\\
/////1.Set-up Player at Rocks\\
///////2.Have Pickaxe Equipted\\\
//////////3. Click Run and Enjoy\\\
//////////////////\\\\\\\\\\\\\\\\\\\
program powerminer;
{.include SRL/SRL.scar}
var tx,ty,IronRock: integer;
var xy,yx,IronOre: integer;
Procedure DeclarePlayers; // this procedure is used to logg players in
begin
HowManyPlayers :=1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer:=0; // CurrentPlayer = Array Index
Players[0].Name :='';//Username
Players[0].Pass :='';//Password
Players[0].Nick :='';//3-4 Letters from your username NOT THE FIRST
Players[0].Active:=True;//Autoing? True/False
end;
////////////////////////////////////////////////////////////////////////////////
procedure LoadDTMs;
begin
IronOre := DTMFromString('78DA6314616060E06740011EBA0A0C5C409A1' +
'188FF0301A3009021CD801530C26876202148408D1C9010439755' +
'4055230F24B8B09B0057230E245809A801F9898D801A4E20C18D5' +
'F0D006EB005D8');
IronRock := DTMFromString('78DA6394656060106640014E1A720CFC409A1' +
'188FF0301232B90218AAA26DC54034C3342F98C12404206558DA5' +
'9214AA1A1E4C35DE7A4AA86A4016B3A2AA0936564355C30724385' +
'1D5F81BA8A0AA01F98B0F558DADAA0C8A1A000907092F');
end;
Procedure Randoms;
Begin
FindTalk;
FindNormalRandoms;
SolveChatRandom;
FindLamp('Mining');
SolvePinball;
DwarfItem;
If(FindFight)Then
Begin
MakeCompass('N');
RunTo('E', True);
Wait(7000 +Random(3000));
RunTo('W', True);
End;
End;
procedure AntiBan;
begin
case random(100) of //do a random number so it won't always perform the antiban
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Mining', False);
3: AlmostLogout;
end;
end;
Procedure MineIron;
var
Tx, Ty, IronRock: integer;
begin
If Not Loggedin then Exit;
LoadDTMs;
IronRock := DTMFromString('78DA6394656060106640014E1A720CFC409 A1' +
'188FF0301232B90218AAA26DC54034C3342F98C1240420655 8DA5' +
'9214AA1A1E4C35DE7A4AA86A4016B3A2AA0936564355C3072 4385' +
'1D5F81BA8A0AA01F98B0F558DADAA0C8A1A000907092F');
If not InvFull then begin
repeat
If Not Loggedin then Exit;
if FindObjCustom(tx,ty, ['Min', 'ine'], [IronRock], 7) then
begin
Mouse(tx,ty,0,0,false);
Wait(500+(random(150)));
ChooseOption('ine')
randoms
antiban;
writeln('found rock');
end else
writeln('couldnt find rock');
randoms;
antiban;
antiban;
antiban;
until( InvFull )
end;
end;
procedure drop;
begin
if(FindDTM(IronOre, xy, yx, 550, 210, 730, 462)) then
begin
Mouse(tx,ty,5,5,False);
ChooseOption('rop');
end;
end;
begin
SetupSRL;
LoadDTMs;
DeclarePlayers;
LoginPlayer;
repeat
mineiron;
drop;
until(IsFKeyDown(3));
FreeDTM(IronOre);
FreeDTM(IronRock);
End.
What I did:
1. I got rid of the spaces in your DTM code, DTM strings cannot have spaces in them 
Hope I Helped