Memo에 받은 데이터를 표시하다가 100줄 이상 넘어가면
윗줄부터 삭제하려고 합니다
그래서 이런방법을 써봤는데 삭제가 되긴 되는데 마우스 포인터가
Memo 맨위에 있네요. 이 마우스 포인터를 맨아래로 내리려면 어떻게 해줘야하나요?

                if( data[serial_number] == 0x0d )
                {

                        *Str_Data = (char)data[0];
                        for(j=1;j<serial_number  ;j++)
                        {
                                *Str_Data = *Str_Data + (char)(data[j]);
                        }

                        Memo1->Lines->Add(*Str_Data )  ;
                        while(Memo1->Lines->Count>100)Memo1->Lines->Delete(0);  <-- 이부분입니다.
                        serial_number = 0;
                       
                }
                else
                {
                        serial_number++ ;
                }