Update:
@kalmi01: Das war die Lösung.
Delphi-Quellcode:
repeat
idx_start := PosEx('#', s, 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);
Inc(i);
s := copy(s, idx_end + 1, Length(s));
until idx_end < i;
So geht es mit '#Beleg-Prefix#foobar#Belegnummer#' als auch mit '#Beleg-Prefix##Belegnummer#'. Danke.