Wyszukiwanie w edit

Jak zrobic taki patent ;) Mam jakis text tam w edicie. Jak sobie klikne w powidzmy buttona to on sprawdzi czy :

• w edicie nie ma gdzis wpisanego "showmessage('lalal');" a jak to gdzies jest nie koniecznie na poczatku to mi sie robie problem :/ aha i co zrobic zeby jak jest gdzies "showmessage('x'); to zeby po showmessage odczytal ten text miedzy apostrofami i potem go showmessagnal? Jak odczytac text ktory jest po "showmessage('"?? jeszcze jak to nie jest na poczatku textu w edicie :/

przykład

"asdasdsdasd showmessage('asds'); lsadksdksal showmessage('234d');sadaa"

po przerobieniu przez porgram powinien pokazac okienka 2. Pierwsze z textem asds a drugie z 234d

????????????????Prosze wszystkich o pomoc.

Copy + Pos + F1

proponuję wewnątrz tekstu uzywać " zamiast '
zrób na przykład tak:

var s: string;
.
:
s:=Edit.Text;
while pos('showmessage("', s)>0 do begin
delete(s, 1, pos('showmessage("', s)+length('showmessage("')); // kasujesz wszystko przed informacja
if pos('")', s)>1 then begin
ShowMessage(copy(s, 1, pos('")', s)-1);
end;
end;

Powinno działać... nie testowałem, ale myślę, że zadziała...