[Alexandr_17_10]

Цель: Копирование текста с определенного симвла до конца строки
код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var s, s1:String;   ws:Widestring; begin   if Key=#13 then begin     ws:=Memo1.Text;     s1:=#13+#10;     s:=Copy(Memo1.Text, Pos(AnsiLowerCase(Edit1.Text), AnsiLowerCase(ws))+      Length(Edit1.Text), Pos(s1, AnsiLowerCase(ws))-(Pos(AnsiLowerCase(Edit1.Text), AnsiLowerCase(ws))+       Length(Edit1.Text)));     Edit2.Text:=s;   end; end;

Почему то работает только для 1 строки. Для всех последующих не работает.
Ах Да.
Достигнуть этого нужно без использования цикла.