콤보박스에서 메모장으로 옮길때...제가 선택한것만 옮기고 싶은데

void __fastcall TForm1::ComboBox1Click(TObject *Sender)
{
Memo1->Lines->Assign(ComboBox1->Items);

이렇게 소스를 입력시키니까  리스트에 있는 모든것이 다 옮겨 지더군요...이걸 해결할 수 있는 방법없을까요?
그리고 메모장이 아니라
리스트 박스에 이것을 올리고 싶은데
고수님들의 조언 부탁드립니다.