First,drag the component of TRsRulerCorner and two TRsRulers to a form.
Then,set RsRuler1's Direction property as rdTop and HairLine property as True,RsRuler2's Direction property as rdLeft and HairLine property as True.
Last,Add code to realize when move mouse on a form then the ruler works.
Code example:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin RsRuler1.HairLinePos:=X; RsRuler2.HairLinePos:=Y; end; Note:you can use TPanel component to locate the position.