String zerlegen

[Luckie]

Ok, das Thema hatten wir schon und die Funktionen pos und copy usw kenne ich. Das ist auch nicht das Problem, also nicht so direkt. Ich habe folgenden String:

Code:

BELEMMER025=11A13061960 GESCEICH026=1 UNTEEICH027=1 LIEFMMER029=061960 KUNDMMER032=00014028 KUNDNUNG033=ELODRIVE GmbH KUNDNUNG034=Stellantriebstechnik           KUNDNUNG035=Potsdamer Strasse 12           PLZKUNDE036=32423 ORTKUNDE037=Minden                         MATCUNDE038=                               BELEATUM039=10.04.2006 AULIEMER042= 61960 @PJL ENTER LANGUAGE = PCL

Und folgenden Record:

Delphi-Quellcode:

  TPJLComments = packed record
    belemmer025: string; // Belegnummer
    aurecmer041: string; // irgendwas Rechnung
    auliemer041: string; // irgendwas Lieferschein
    aulasmer041: string; // irgendwas Lastschrift
    gesceich026: string; // Geschäftsbereich
    unteeich027: string; // Untergeschäftsbereich
    kundmmer032: string; // Kundennummer
    kundnung033: string; // Kundenbezeichnung 1 (Firmenname)
    kundnung035: string; // Kundenbezeichnung 2 (Strasse)
    plzkunde036: string; // PLZ
    ortkunde037: string; // Ort
    matcunde038: string; // MatchCode
    beleatum039: string; // Belegdatum
  end;

Wie bekomme ich jetzt möglichst elegant ohne ohne viel rumzukopieren, die Werte aus dem String in die entsprechenden Felder meines Records? Leider gibt es kein eindeutiges Trennzeichen. Und an dem String kann ich nichts ändern, den bekomme ich so geliefert.