error over here :(
well, i wanne load dtms that depends on users string, but yea i got error at begin of case 
can someone plz help me?
SCAR Code:
procedure LoadDTM;
begin
Pike := DTMFromString('78DA63146160609064400131B5E10CFF81342' +
'310FF0702460E204381010D302291405A1C48081050234184392A' +
'404290801A4520C145400D1F909020A0861F4828E1570300279F0' +
'7AE');
Trout:= DTMFromString('78DA637465626078C580024E1D3AC46004A41' +
'981F83F10307A01D5BC6340038C482490B622428D0750CD1D026A' +
'82816A6E1050130654731FBF1A002BF30DAD');
Salmon:= DTMFromString('78DA637465626078C180023614A6301801694' +
'620FE0F048C5E4035EF18D000231209A4AD806ADE1350E3015473' +
'87809A60A09A1B04D48401D5DCC7AF060091F20CE3');
Shrimp:= DTMFromString('78DA63B463626078CA8002167637301801694' +
'620FE0F048C20357718D000231209A4FD816A6E1350E30B54F388' +
'809A60A09A1704D4B803D57C22A0C61AA8E6157E3500958B0E2C');
Beef:= DTMFromString('78DA63F460626078CA800216280B311801694' +
'620FE0F048C2035F719D000231209A4FD806AAE1150134C849A30' +
'A09A3B04D4F803D5BC27A0C613A8E6330135364498638D193EE86' +
'A001F7A0FC8');
case lowercase(Players[CurrentPlayer].String1) of//i get error here
'pike': begin;
TheDTM:= Pike;
FreeDTM(Trout);
FreeDTM(Salmon);
FreeDTM(Shrimp);
FreeDTM(Beef);
end;
'trout': begin
TheDTM:= Trout;
FreeDTM(Pike);
FreeDTM(Salmon);
FreeDTM(Shrimp);
FreeDTM(Beef);
end;
'salmon': begin
TheDTM:= Salmon;
FreeDTM(Pike);
FreeDTM(Trout);
FreeDTM(Shrimp);
FreeDTM(Beef);
end;
'shrimp': begin
TheDTM:= Shrimp;
FreeDTM(Pike);
FreeDTM(Trout);
FreeDTM(Salmon);
FreeDTM(Beef);
end;
'beef': begin
TheDTM:= Beef;
FreeDTM(Pike);
FreeDTM(Trout);
FreeDTM(Salmon);
FreeDTM(Shrimp);
end;
else
begin
Writeln('Invalid option! -look at your settings!');
Writeln('Quiting script.');
Terminatescript;
end;
end;
end;
[QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
[CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]