TPA error

[Reveille]

E: NEVERMIND! Forgot to put begin so obvious..


[Error] (37:2): 'BEGIN' expected at line 36
Compiling failed.

Line 36: if FindDTMRotated(Q[0], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then

program new;
{$i srl/srl.scar}
var
x, y: Integer;
Q: Array [0..1] of Integer;//DTM Declaring procedure.
aFound: Extended;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;

procedure SetDTM;
begin
Q[0] := DTMFromString('mggAAAHicY2NgYPBggIBwILYDYk8gTgLiaC Dmh8o5AbEpEBsDcYS3OUOIqw7DxM5Whnef3jM42EgzeLiogdVi w4w4MAQAABJ8Clk=');
Q[1] := DTMFromString('mbQAAAHicY2VgYEhgYmCoAWJvII4C4nlAnA gUr4DiHiBOA+KcKEuGd5/eM3wHsqN91BjYgDQ/FsyIBYMBANYSClo=');
end;

procedure FrDTM;
begin
FreeDTM(Q[0]);
FreeDTM(Q[1]);
end;


procedure ToWalk;
if FindDTMRotated(Q[0], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
begin
Mouse(x, y, 3, 3, True);
FFlag(6);
repeat
Wait(50 + Random(25));
until FindDTMRotated(Q[1], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound);
end;
if FindDTMRotated(Q[1], x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
begin
Mouse(x, y, 3, 3, True);
FFlag(6);
end;
end;

begin
Smart_Server := 64;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SetDTM; //Set DTM's before code.
MouseSpeed := 18;//This makes it move faster but still undetectable, it makes DTM walking even more human-like.
MakeCompass('n');//We agreed we'd have camera facing North.
SetAngle(True);//Does not matter but it looks cooler from above.
ToWalk;
FrDTM;
end.