Parsen der Kommandozeilenparameter

[DMW]

Guten Abend allerseits.

Vorweg: eigentlich programmiere ich mit C und C++; mit Delphi habe ich bisher noch keine Erfahrung. Jetzt habe ich aber einen Quelltext für Delphi, den in C++ umzusetzen ein sehr großer Aufwand wäre, weshalb ich versuche, ihn in eine Delphi-Kommandozeilenapplikation zu integrieren. Das klappt soweit eigentlich auch, nur habe ich nun seltsame Probleme mit meinem ersten Versuch, den Kommandozeilenparameter in mehrere Teile zu zerlegen: Der Code wird zwar fehlerfrei kompiliert, aber die Ausführung wird plötzlich abgebrochen.

Hier der relevante Codeauszug:

Delphi-Quellcode:

var
  parameters : Array of String;

  procedure readParameters ();
  var
    cp, ptr : PChar;
    quota, escape : Boolean;
    ai : Integer;

  begin
    quota := false;
    escape := false;
    ptr := GetCommandLine ();
    ai := 1;
    SetLength (parameters, 1);


    while ptr^ <> #0 do
    begin
      if (ptr^ = '"') then // parameter in quotation marks
      begin
        quota := not quota;
        inc (ptr);
        continue;
      end;
      if (ptr^ = ' ') and (not quota) then  // end of parameter
      begin;
        inc (ai);
        SetLength (parameters, ai);
        inc (ptr);
        continue;
      end;
      parameters[ai] := parameters[ai] + String (ptr^);
      inc (ptr);
    end;

  end;

begin;
  readParameters ();

  { ... }
end.

Die über Leerzeichen getrennte Kommandozeilenparameter sollen im Array parameters der Reihe nach untergebracht werden. Nun gibt es aber zwei Probleme:
- die Zeile parameters[ai] := parameters[ai] + String (ptr^); tut nicht, was sie soll: parameters[ai] ist nach der Ausführung mit ptr^='E' so leer wie zuvor.
- nach der zweiten Ausführung ebendieser Zeile springt die Applikation aus mir unerklärlichen Gründen zum Programmende.

Der Code wurde unter Turbo Delphi 2006 getestet, die Quelltexte, die ich benötige, sind hier verfügbar.

Hat jemand eine Erklärung für das Phänomen? Oder stellt Delphi möglicherweise Funktionen zum einfachen Parsen des Kommandozeilenparameters bereit, die mir nicht bekannt sind?