DTM Error?

[NoUserName]

Hey been using a procedure i made with out any problems come to play with it again today and get

Error: Exception: The given DTM Index[2] doesn't exist at line 281
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]

procedure tel(Location : string);
var
HomeDTM, x, y, i, p, t: Integer;
begin
HomeDTM := DTMFromString('m1gAAAHic42JgYGhnhuAJUNwL5TcDcR0QN0 DFtjMyMKwD4q1AvBOI9wLxASDeD8Q7gHgTEG8E4n1HPjG0zblB EIswEAcYicQIAAA5ASEJ');
MarkTime(t);
GameTab(28);
repeat
If LodestoneScreen then
begin
repeat
Lodestoneteleport(Location);
Wait(RandomRange(500, 500));
DebugText('[Debug Message]- Teleporting!');

if TimeFromMark(t) > 20000 then
begin
repeat
if FindDTM(HomeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
mmouse (x, y, 7, 7);
ClickMouse2(mouse_left);
Writeln('Found Home!');
Wait(RandomRange(100, 100));
FreeDTM(HomeDTM);
end;
until(LodestoneScreen)
end;


until(FindSymbol(x, y,'lodestone')=True)
end else
281 >> if FindDTM(HomeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
mmouse (x, y, 7, 7);
ClickMouse2(mouse_left);
Writeln('Found Home!');
Wait(RandomRange(100, 100));
FreeDTM(HomeDTM);
end else
begin
Writeln('Error Finding Home DTM');
i:=i+1;
end;
until(i=4)or (p=1);
end;

is the procedure

what could this be ive tried to fix myself with no luck

thanks

[YoHoJo]

Problem is here
FreeDTM(HomeDTM);
end;
until(LodestoneScreen)
end;


until(FindSymbol(x, y,'lodestone')=True)
end else
281 >> if FindDTM(HomeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then

You loaded DTM, then freed it, then asked to search for it again.
Don't free it until the end of the procedure.

[NoUserName]

Im such a a pleb thanks spend 30 mins trying to fix this :-P