Problemer med splitning af txtstreng

Hejsa

Jeg har lidt problemer med opdeling af en tekststreng...

var
  buffer, actionbuf, headbuf, extrabuf, pnrbuf: string;
  apos, bpos, cpos: word;
begin
  buffer := socket.receivetext;
  aPos := Pos('§', buffer);
  bpos := pos('#', buffer);
  cpos := pos('¤', buffer);
  headbuf := copy(buffer, 1, apos-1);
  actionbuf := copy(buffer, apos+1, bpos-1);
  extrabuf := copy(buffer, bpos+1, cpos-1);
  pnrbuf := copy(buffer, cpos+1, length(buffer));
  blablabla...
end;

Smider jeg de forskellige buffere (hhv. headbuf, actionbuf, extrabuf, og pnrbuf) i et memo kommer det ca. til at ligne dette...

Headbuf
actionbuf#extrabuf¤pnrbuf
extrabuf¤pnrbuf
pnrbuf

Mit mål er naturligvis at få det til at stå således...

Headbuf
actionbuf
extrabuf
pnrbuf

Hvad gør jeg galt?

-Remis