Помогите c TXT файлом

[apanko]

Кстати, 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;