우선.. Shift상태 검사는 그렇게 하시는게 아니구요
Shift.Contains(ssLeft)
이렇게 하시는게 좋겠네요

GDI함수에 대한 이해가 거의 없으신 것 같은데..
ptTwo에 현재 X,Y 대입,
MoveTo로 ptOne으로 이동,
LineTo로 ptTwo로 이동,
ptOne을 현재 X,Y로 초기화..

이렇게 하셔야죠
그리고 이런방식은 Repaint될 때 화면 내용이 다 지워집니다. 각 포인트리스트를 관리하셔야 합니다.

ASURADA 님이 쓰신 글 :
: 폼 위에 마우스를 드래그하면 마우스를 따라서 처음 클릭한 곳으로부터 직선을 그어지게 하려 하는데요...
:
: 다음고 같이 코딩을 했는데 의도대로 되질 않는군요....ㅡㅡ;
:
: //---------------------------------------------------------------------------
: void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
:       TShiftState Shift, int X, int Y)
: {
:   if (Button == mbLeft)
:   {
:     m_ptOne.x = X;
:     m_ptOne.y = Y;
:
:     m_ptTwo = m_ptOne;
:   }
: }
: //---------------------------------------------------------------------------
: void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
:       int X, int Y)
: {
:   if (Shift == (TShiftState() << ssLeft))
:   {
:     TPenMode pmMode = Canvas->Pen->Mode;
:     Canvas->Pen->Mode = pmXor;
:
:     Canvas->MoveTo(m_ptOne.x, m_ptOne.y);
:     Canvas->LineTo(m_ptTwo.x, m_ptTwo.y);
:
:     m_ptTwo.x = X;
:     m_ptTwo.y = Y;
:     Canvas->MoveTo(m_ptOne.x, m_ptOne.y);
:     Canvas->LineTo(m_ptTwo.x, m_ptTwo.y);
:
:     Canvas->Pen->Mode = pmMode;
:   }
: }
: //---------------------------------------------------------------------------
:
: 조언 부탁드립니다.