Mit einem Memo zeigt man Dinge an, aber man verarbeitet sie nicht. Hierfür kannst Du die Eingeschaft 'Memo.Lines.Text' verwenden, sie liefert den Inhalt als String.
Delphi-Quellcode:
function FindeDenText (
Const Suchtext, gesamterText :
String) :
String;
Var
p,q : Integer;
begin
result := '
';
p := Pos(Suchtext, gesamterText);
if p=0
then exit;
// nix gefunden
q:=p+Length(Suchtext);
while (p>0)
and (gesamterText[p]<>'
>')
do dec(p);
while (q<length(gesamterText))
and (gesamterText[q]<>'
<')
do inc(q);
result := Copy(gesamterText,p+1,q-p-1);
end;
...
// Aufruf so
MeinText := FindeDenText('
27 Dresses', MyMemo.Lines.Text);
ungetestet allerdings.