String mellem 2 andre strings

Jeg har en variabel S : string.
S skal indeholde alt hvad der står mellem 'Abc og Cba'
(således at S kommer til at indeholdet "og", eftersom den jo står mellem Abc og Cba).

Kort sagt: S skal indeholde alt hvad der står mellem 2 strings, som i dette tilfælde er Abc og Cba.

Det må meget gerne være sådan, at jeg kan skrive følgende:

var s : string;
begin
  s := Indlaes('Abc','Cba',memo1.text);
end;