Из Edit в Memo

[HaBiBi]

Здравстуйте,жду от вас помощи.На форме два поля memo,в них фамилии студентов.Так вот надо в edite вписать фамилию студента одной группы,чтобы перевести его в другую.Как это сделать???Перевести студента из одной группы в другую группу.Помогите пожалуйста!Какой код прописывать?

[Neeter]

Вот что у меня получилось:

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 for i := 0 to Memo1.Lines.Count - 1 do
  if Memo1.Lines[i] = Edit1.Text then
  begin
   Memo2.Lines.Add(Edit1.Text);
   Memo1.Lines.Delete(i);
   Break;
  end;
end;

[HaBiBi]

Большое спасибо,дружище!