Zeile zerlegen und teile in Variablen einfügen

[Torpedo]

Vielleicht solltest du zuerst alle Leerzeichen entfernen, wenn sie nicht zwischen ' ' stehen.
Dann ist es leichter die Sachen zu trennen.
Das kannst du z.B. mit der Funktion:

Delphi-Quellcode:

function Leerzeichenloeschen(line:string):String;
var instring:Boolean;
    i:integer;
begin
  instring := false;
  result := line;
  for i := length(line) downto 1 do
  begin
    if (result[i] = ' ') and (not instring) then
      delete(result,i,1);
    if result [i] = '''' then
      instring := not instring;
  end;
end;