OnMouseMove findest du im Objektinspektor unter "Ereignisse". Ins weiße Feld doppelklicken -> und du landest im Code an der richtigen stelle.
Die Farbe stellst du so ein:
Paintbox1.Canvas.Pen.Color := clYellow;
Dann musst du halt prüfen, ob sich der Mauszeiger über der Linie befindet (s. Jens' Beitrag) und dementsprechend die Linie zeichnen:
Delphi-Quellcode:
with Paintbox1.Canvas do
begin
MoveTo(1,1);
LineTo(100,1);
end;
Noch Fragen
PS: Mist, zu spät.