procedure Zaplatka(l: PStrList);[/code]
правильнее писать так:
procedure Patch(l: PStrList);[/code]