warum wird ein grosser text nicht korrekt durchsucht? 0_o

[o0o]

hi ich bins wieder mal

also ich habe ne textdatei, und darin will ich was best. suchen. das gute ist das was ich suche steht zwischen 2 parametern. dafuer benutze ich diesen schnipsel:

Delphi-Quellcode:

function Between(Tag1, Tag2, Text: String): String;
begin
  Delete(Text,1,Pos(Tag1,Text)+length(Tag1)-1); 
  Delete(Text,Pos(Tag2,Text),Length(Text));
  Result:=Text;
end;

und fuer den button das:

Delphi-Quellcode:

procedure TForm1.Button1Click(SeTObject);
begin
(Between(' Z   ','

?',Memo1.Text);
end;

leutz eigendlich geht das ganze auch sogar bei mir ging als ich es testete^^
nur beim test habe ich nur einen kleinen bruchteil vom gesamttext benutzt, und es klappte.

eben habe ich mal kurz durchtesten wollen und habe mal den ganzen text durchsuchen gelassen und nix geht nicht!

das witzige ist aber dass beim aufruf von showmessage der inhalt nicht leer war,...sondern der gesamte text der eigendlich durchsucht werden sollte war drin

also ich find das iwi voll komisch...0_o

o0o