[Doctor Drive]

Снова трабл, не хотел создавать другую тему, вот и напишу тут...

Кароче в строке 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.