제가아는 허접한 방법은
마우스다운 이벤트하고 마우스업 이벤트를 이용하면 될 것 같습니다.

아래와 같은 간단한 프로그램을 만들어서 테스트해 보세요.
Form의 Mouse Down Event를 이용한 것입니다.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Memo1.Lines.Add('X = '+IntToStr(X));
Memo1.Lines.Add('Y = '+IntToStr(Y));

if Button = mbLeft then Memo1.Lines.Add('Mouse Button LEFT')
else if Button = mbMiddle then Memo1.Lines.Add('Mouse Button CENTER')
else if Button = mbRight then Memo1.Lines.Add('Mouse Button RIGHT')
else;

if ssShift in Shift then Memo1.Lines.Add('Shift Key is down')
else if ssAlt in Shift then Memo1.Lines.Add('Alt Key is down')
else if ssCtrl in Shift then Memo1.Lines.Add('Control Key is down')
else;
Memo1.Lines.Add('');
end;

그리고 델파이 도움말에서 TMouseButton과 TShiftState도 한번 찾아보시구요.

좋은 정보 감사드립니다.^^