SRL Archive - Help

I have been following this tut: http://www.youtube.com/watch?v=SlS4q9MiFX4
and i get this error:

[Error] (12:5): String error at line 11
[Error] (12:5): Syntax error at line 11
Compiling failed.

Code:

program DTMTest;
{$i SRL\SRL.scar}

var
Tuna, X, Y: integer;


begin
  Tuna := DTMFromString('78DA637CC5C0C0C0CAC8800C5223C3C1344C9' +
    '4F11B90F8CB80069850D57CC1340743CD5B20C14340CD0B20C14740C' +
    'D3D22D5B01350F318441050F31248B0A1AAF90F9383D2007FA70BAB'' +
    ');


  If FindDTM(Tuna, X, Y, MSX1, MSY2, MSX2, MSY2); then
  begin
    WriteLn('Here we are');
    MMouse( X, Y, 7, 7);
    if IsuUpText('una'); then
    Mouse( X, Y, 0, 0, True);
    end;

    FreeDTM(Tuna);


end.  

  Tuna := DTMFromString('78DA637CC5C0C0C0CAC8800C5223C3C1344C9' +
    '4F11B90F8CB80069850D57CC1340743CD5B20C14340CD0B20C14740C' +
    'D3D22D5B01350F318441050F31248B0A1AAF90F9383D2007FA70BAB'' +               //<----------- Right there you have double quotes..

should be BAB' +… Not BAB''

new error:

 [Error] (13:5): String error at line 12
[Error] (13:5): Syntax error at line 12
Compiling failed.

if FindDTM(Tuna, X, Y, MSX1, MSY2, MSX2, MSY2); then <—- Semi colon needs to be removed..
if IsuUpText('una'); then <—– Semi colon needs to be removed.

same error still

[Error] (13:5): String error at line 12
[Error] (13:5): Syntax error at line 12
Compiling failed.

Not sure if u read anything i said or made the changes at all..

Anyway compare all your code line by line to the one below to see the difference.. Hopefully you understand it. If not just post here and I'll either check back and reply or if I'm sleeping, I'm sure someone else will ;)

program DTMTest;
{$i SRL\SRL.simba}

var
Tuna, X, Y: integer;


begin
  Tuna := DTMFromString('78DA637CC5C0C0C0CAC8800C5223C3C1344C9' +
    '4F11B90F8CB80069850D57CC1340743CD5B20C14340CD0B20C14740C' +
    'D3D22D5B01350F318441050F31248B0A1AAF90F9383D2007FA70BAB');


  If FindDTM(Tuna, X, Y, MSX1, MSY2, MSX2, MSY2) then
  begin
    WriteLn('Here we are');
    MMouse( X, Y, 7, 7);
    if IsUpText('una') then
    Mouse( X, Y, 0, 0, True);
    end;

    FreeDTM(Tuna);
end.

found at what it was, thanks for the help.