Возможно ли удалить, вырезать, определенную строку в TMemo

[Des]

Procedure Доброго времени суток!
var
Имею на форме TEdit и TMemo. Нужно реализовать следующую процедуру, функцию, проверки:
begin
Если 1 строка TMemo не равна Тексту TEdit тогда
Вырезать (либо скопировать а потом удалить) из TMemo 1 строку и вставить её в TEdit…

Поправьте меня если ошибаюсь, но в прошлом году я примерное хотел сделать и у меня вроде бы ничего не получилось. В тот момент для таких манипуляций я кажется юзал TListView. Если ошибаюсь или если не сложно прошу привести пример кода для TMemo либо для TListView (или ListBox);
end;

[Stilet]

Edit1.text:=memo.lines[i];
Memo.lines.Delete(i)

Где i - номер нужной строки, начинаемый с нуля.

[Des]

Спасибо =)