String zerlegen

[Luckie]

In einem String sind Zeichenfolgen mit # eingeschlossen. Was ich jetzt brauche sind die Zeichenfolgen dazwischen.

Beispiel:
'#Beleg-Prefix##Belegnummer#'
Ich brauche jetzt Beleg-Prefix und Belegnummer. Mit diesem Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i                 : Integer;
  idx_start, idx_end: Integer;
  s                 : string;
  KeyWord           : string;
begin
  i := 0;
  s := Edit1.Text;
  DebugLog(s);

  idx_start := 1;
  repeat
    idx_start := PosEx('#', s, idx_start + 1);
    //DebugLog('idx_start: ' + IntToStr(idx_start));
    idx_end := PosEx('#', s, idx_start + 1);
    //DebugLog('idx_end: ' + IntToStr(idx_end));
    KeyWord := copy(s, idx_start + 1, idx_end - idx_start - 1);
    DebugLog(KeyWord);
    idx_start := idx_end;
    Inc(i);
  until idx_end < i;

geht das schon ganz gut, bis auf die Tatsache, dass ich imme rnoch das abschliessende ' im Memo stehen. OK. So weit so gut. Jetzt kann aber auch folgendes auftreten:
'#Beleg-Prefix#foobar#Belegnummer#'
Das foobar darf ich jetzt aber nicht extrahieren, da die # zu dem Wort davor und danach gehören. Und genau daran scheitere ich im Moment. Mein bisheriger Code (siehe oben) zieht das foobar immer noch mit raus, was aber, wie gesagt, nicht sein darf.

Entwicklen tue ich das zur Zeit unter D6 Enterprise. Brauchen tue ich den Code aber dann unter BDS2006, das heißt ich könnte eventuell auf Sprachmitten zurückgreifen, die erst ab BDS2006 zur Verfügung stehen.