Probleme mit Paramstr. und TStringlist

[R2D2]

Hallo!

Ich will mit dem folgenden Consolen-Code eine Zeile zu einer Datei hinzufügen, und eventuelle leere Zeilen löschen. Der Code wird durch das Kontextmenü aufgerufen.

Delphi-Quellcode:

program add;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

var sl: TStringlist; i : Integer;


begin
  sl := TStringlist.create;
  sl.LoadFromFile('.\data.list');
  if sl.Count < 7 then sl.Add(Paramstr(1));
  for i := 0 to sl.Count - 1 do if sl.Strings[i] = '' then sl.Delete(i);
  sl.SaveToFile('.\data.list');
  sl.Free;
  writeln('Link created succesfully.');
end.

Der registry-key sieht so aus:

HKEY_CLASSES_ROOT\*\Shell\Desktop-Manager\command

(Standard)

Typ: REG_SZ

Wert: "C:\Dokumente und Einstellungen\Lucas\Eigene Dateien\Delphi\Manager\add.exe" %1

Mit einem rechtsklick auf eine Datei und den entsprechenden Eintrag im Kontextmenü bekomme ich aber einen Fehler: "Das Programm hat einen Fehler festgestellt und muss beendet werden."

Warum? Wie kann ich das besser machen?