[Alexandr_17_10]

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

Код:

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 строки. Для всех последующих не работает.
Ах Да.
Достигнуть этого нужно без использования цикла.