Ungültige Zeigeroperation

[Fallenzer]

Hallo und guten Tag,

bei einer Prozedur ist folgender Fehler aufgetreten: UNGÜLTIGE ZEIGEROPERATION

Delphi-Quellcode:

var
  Form4: TForm4;
sl,sk:tstringlist; sessio: integer;
implementation
  uses Unit1, unit3;
{$R *.dfm}
{...}
procedure TForm4.Button1Click(Sender: TObject);
begin
  sl.LoadFromFile('.\Market\info.txt'); 
sk.Loadfromfile('.\Market\lastsession.txt');
sl.Add(''); 
sl.Add('Einkauf-Nr.: ' + sk.strings[0]); 
sl.add(''); 
sl.Add('Produkte:'); 
sl.add(''); 
sl.Addstrings(Form1.Listbox2.Items); 
sl.add(''); 
sl.add('Total: ' +  Floattostrf(priz, ffcurrency, 4, 2)); 
sl.Add('Give:  ' + Floattostrf(money, ffcurrency, 4, 2)); 
sl.Add('Back:  ' + Floattostrf(money-priz, ffcurrency, 4, 2)); 
sl.Add(''); 
sl.Add('Vielen Dank f�r Ihren Einkauf!!!'); 
sl.Add(''); 
sessio:=(Strtoint(sk.strings[0])+1); 
sk.free; 
sk.add(inttostr(sessio)); 
sl.SaveToFile('.\Market\Bon\' + sk.strings[0] + '.txt'); 
sk.savetofile('.\Market\lastsession.txt'); 
sl.Free; 
sk.free;
end;

Ich würde mich auf eure Hilfe freuen. Vielen Dank