Udskrive en string?

Jeg har før spurgt efter en funktion hvor jeg havde en string, lad os sige "abc 123;" hvor jeg så kunne gøre noget lignende:

var s,t: string;
begin
  s := 'abc 123;';
  t := indlaes('abc ',';',s);
end;

funktionen indlaes() indlæser nu alt hvad der står mellem "abc " og ";".

Men problemet opstår når jeg så har flere tegn, f.eks. en string med følgende:

abc 123; hulabula 535; cba 421;

når jeg så bruger indlaes() funktionen udskriver den ingenting, da der jo er flere steder hvor der er et ;-tegn.

Så mit spørgsmål lyder på: Hvordan laver jeg en funktion, kaldet indlaes() hvor jeg kan indlaese alt hvad der står mellem en string og det næste ;-tegn der kommer efter denne string?