SRL Archive - OSR Help

program test_bankmethod;
{$i SRL-OSR/SRL.Simba}
var
Herb:Integer;
const
Amount = 27;
Procedure loaddm;
begin
Herb := DTMFromString('mlwAAAHicY2dgYFjOyMCwBYhXAPFcIJ4DxBuBeD4QBwHlfYA4EoiDoexQKJ8zgxdIMuLAuAEuHUi6AI+6B2o=');
end;
Procedure get_herb;
var
x, y:integer;
begin
if FindDTM(Herb, x, y, MSX1, MSY1, MSX2, MSY2) then
  wait(300+randomrange(300,500));
  begin
  writeln('Found the herbs');
  MMouse(x, y, 3, 3);
  Mouse(x, y, 0, 0, false);
  wait(300+randomrange(300,500));
  WaitOption('raw X', 2000);
  SendKeys(Amount, 20, 10);


if PinScreen then
        if (Players[CurrentPlayer].Pin <> '') then
          InPin(Players[CurrentPlayer].Pin)
        else
          writeln('No pin given, logging out');
          exit;
end;
end;
Procedure freedtms;
begin;
FreeDTM(Herb);
end;
begin
AddOnTerminate('freedtms');
SetupSRL;
loaddm;
get_herb;
freedtms;
end. 

Not sure where I have gone wrong. I want the Amount to be a variable so the user can change it to however many they want to be withdrawn from the bank.
Thank you :-)

Integer(amount).ToString();

or Amount = '27'; //(parameter is a string)

Thanks guys