Drag and Drop (Delphi)

[mivel]

Здравствуйте.
Есть задание: Реализовать перенос и копирование выделенных фрагментов и всего текста между тремя компонентами TMemo. Текст вставлять в позицию, в которой находится курсор в момент окончания переноса.
Перенос текста я сделал а вот вставлять текст в позицию, в которой находится курсор в момент окончания переноса не получается.
Вот обработчик:

procedure TMainForm.MemoDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if CheckBox2.Checked then
    TMemo(Sender).Text:=TMemo(Source).Text
  else
     TMemo(Sender).Text:=TMemo(Source).SelText;
end;

CheckBox2 определяет перенос всего текста или только выделенного фрагмента. Пробовал через CaretPos установить курсор в нужное положение, но как вставить текст начиная с этой позиции не знаю.