Первый раз вижу такой стиль оформления кода - ступенькой.
А ошибка у вас возникает из за пропущенного параметра.
Вот у вас описание как выглядит:
Код:
AddSegment (const Segment: TSegment; Index: integer): integer;
а вот так вызов:
Код:
i:=AddSegment(StrToInt(s));