아래처럼..
DrawFocusRect라는 메소드를 사용하시면 됩니다..
드래그한 좌표를 얻는 것은..
류승우씨(?)가 올린 자료를 참고하세요..
아차..
참고로 그려진 네모는
다시 그리면 사라집니다..
즉, 토글 됩니다..
버턴을 계속 눌러 보세요..

* 소스
procedure TForm1.Button1Click(Sender: TObject);
Var
   DRect : TRect;
begin
  DRect:= Rect(10, 10, 100, 100);
  Image1.Canvas.DrawFocusRect(DRect);
end;


From 류..

* 승우야 이놈아 연락좀 하고 살아라..
  엉아가 해야 겠냐?
  (여기서 승우는 프포의 승우씨 말구, RYUSW1 승우를 말합니다..)