Снова трабл, не хотел создавать другую тему, вот и напишу тут...
Кароче в строке 55 пишет error, unexpected token '('

unit Anim;
interface
procedure new;
implementation
uses FileSystem, gif, parse, jsr75i, imloadjsr75;
procedure new;
var s, save: string;
add, addnext, form, finish, i, n, i2: integer;
ok: command;
frame: array[1..50] of image;
delay: array[1..50] of integer;
begin
ok := createcommand('Ok', CM_OK, 1);
repeat
s := FileSystem.foldselect;
showform;
i := i + 1;
frame[i] := imloadjsr75.loadimage(s);
form := formaddtextfield('Pause','100', 5,TF_NUMERIC);
addcommand(ok);
repeat until getclickedcommand = ok;
removecommand(ok);
delay[i] := stringtointeger(formgettext(form));
clearform;
showmenu('Add Next?',CH_IMPLICIT);
addnext := menuappendstring('Add Next image');
finish := menuappendstring('Finish animation');
addcommand(ok);
repeat until getclickedcommand = ok;
removecommand(ok);
until menugetselectedindex = finish;
parse.line(s, '/');
for i2 := 0 to parse.len-2 do begin
save := save + '/' + parse.get(i2);
end;
showform;
gif.init(50);
for n := 1 to i do begin
add := gif.add_frame(frame[n]);
gif.set_delay(delay[n]);
end;
finish := gif.close(save+'/anim.gif');
if finish = 1 then showAlert('Done!', 'Animation created!', loadimage('/sav.png'), ALERT_INFO);
else showAlert('Error!', 'An error has occured!', loadimage('/err.png'), ALERT_ERROR);
delay(3000); //!!! ВОТ СТРОКА 55 !!!
end;
initialization
end.