Errors occurred with time

[Simpe]

I had and used this for a long while but it was about two years ago since. fully updated my scar but that might be the problem? anywho current problem is "uknown identifier `BitmapFromString` i have tried to sort it out and ended up on alot of "errors" but its so long ago since it was made by me and a friend i cant remember anything tbh.. anyone got any advice or see anything wrong with it?

 

program NFFExpTrainingScroll;

var
x,y: Integer;
xtast: integer;
ztast: integer;


procedure LoadBmps;
         Begin
             xtast := BitmapFromString(14, 13, 'beNrjEGBgYPgPAwwYAE3qPxL' +
      'AqgxZHFOQGO2YAJeT8CvDpZgBByDbQJIcSUzQERmYBLXjj83vHAIM' +
      'RIDvAJF1FRo=');

      end;

procedure LoadBmps2;
         begin
              ztast := BitmapFromString(14, 13, 'beNrjEGAAg/94AQMSIF4lGqC' +
      '6SiJtp5YaqiujRCUevxOp8juHAAMR4DsAl5H6Jg==');


      end;

procedure xtastfind;
begin
 if FindBitmap(xtast,x,y) then
    begin
         Sendkeys('x');
         wait(500);
    end else

end;
procedure ztastfind;
begin
 if   FindBitmap(ztast,x,y) then
      begin
         SendKeys('z');
         wait(500);
    end else
end;

begin
    LoadBmps;
    LoadBmps2;
repeat
    xtastfind;
         wait(10);
    ztastfind;
         wait(10);
    xtastfind;
         wait(10);
    ztastfind;
         wait(10);
    xtastfind;
         wait(10);
    ztastfind;
         wait(10);
    xtastfind;
         wait(10);
    ztastfind;
         wait(10);

    xtastfind;
         wait(10);
    ztastfind;
         wait(10);
    xtastfind;
         wait(10);
    ztastfind;
         wait(10);

    xtastfind;
         wait(10);
    ztastfind;
         wait(10);
    xtastfind;
         wait(10);
    ztastfind;
         wait(10);

    xtastfind;
         wait(10);
    ztastfind;
         wait(10);
    xtastfind;
         wait(10);
    ztastfind;
         wait(10);

    xtastfind;
         wait(10);
    ztastfind;
         wait(10);
    xtastfind;
         wait(10);
    ztastfind;
         wait(10);


until(false);
    ClearDebug;
    Writeln('bra jobba!');
end.

 

would love some help from anyone willing to figure my mistake out and thanks in advance for taking the time.

 

its a very simple consept.. two keys will pop up on the screen either X or Z.. and its suppose to detect it and click the button asked for.. due to being a byond game (laggy) it spams the required key alittle. can provide screenshots of the image trigger if required