My First script, not exactly sure where i went wrong, cannot figure out where im supposed to put "freedtm(feather);"

Any help would be appreciated =D

Error Text
Checking P07Include VersionNumber
Local : 1.7 / Latest : 1.7
You Have The Latest Version of P07Include
Successfully executed.
The following DTMs were not freed: [4]

Simba Code:
program new;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
Var
  Feather:integer; //The Name of the DTM
  X,y:integer; // The X and the Y to store the cords for the DTM.
Procedure LoadDTM;
Begin               //Edit the Dtm to whatever item you want to purchase
  Feather:= DTMFromString('mlwAAAHicY2dgYKhgZGBoBOIaIC4C4mogLgPieiAOBMr7AHEEEAcDsRcQhwNxEBAf3buXYeuqVQxbVq5gcLM1AoowMhzauQPMxwcY8WAoAAAwfRDj');
end;

Procedure Party;
Begin
 if FindDTM(Feather, x, y, MSX1, MSY1, MSX2, MSY2) then // MS is the cords of the Main Screen
  begin
    MMouse(x,y,2,2); // Hovers over feathers
    if P07_IsUpTextMultiCustom([Feather]) then // If text up feather it will click it
    begin
      ClickMouse2(mouse_Right);
      wait(100+random(100));
      P07_ChooseOptionMulti(['Buy 10', '10'])
      end else
        FreeDTM(Feather);
        Writeln('No DTM found'); // If cant find DTM it will say this.
  end;
end;

begin
  ClearDebug;
  ActivateClient;
  SetUpP07Include;
  LoadDTM;
  Party;
  Repeat
  Until (P07_InvFull)
end.