Кстати, romeo прав на 100%
Не во всех строках у вас стоит символ ; например его нет в строках [header] и [body].
Код:
IF STRPOS(Buffer,';')>0 THEN
FOR i:=1 TO Number DO BEGIN
s2:=COPYSTR(Buffer,1,STRPOS(Buffer,';')-1);
Buffer:=COPYSTR(Buffer,STRPOS(Buffer,';')+1);
END;