Código Delphi [-] Memo1.Lines.Insert(0, Copy(Memo1.Text, Pos(Cita.text, Memo1.Text), Length(Cita.Text)));
Memo1.Lines.Insert(0, Copy(Memo1.Text, Pos(Cita.text, Memo1.Text), Length(Cita.Text)));