Suche bestimmten Wert in Memo und zeige mir den neben stehenden Wert an im Edit feld

[klaus9]

hi,

danke für die infos, also der Code funktioniert schonmal sehr gut

Delphi-Quellcode:

for i:=1 to length(memo1.Text) do
 begin
  if Memo1.Lines.Text[i] = X then
    if Memo1.Lines.Text[i+1] = Y then
      if Memo1.Lines.Text[i+2] = Z then
        begin
          ...
        end;
 end;

Aber wie kann ich jetzt sagen er möchte mir nach dem fund des wortes "XYZ" dann alle zeichen z.B. nach dem Wort kopieren und in Edit1.text einfügen