ich glaube bei dem code wirst du mit Fehlern überhäuft
und könntest du dir vielleicht bisschen mühe geben?
du möchtest eine zufällige linie zeichnen?
Delphi-Quellcode:
x1:=random(paintbox1.width);
y1:=random(paintbox1.height);
paintbox1.canvas.moveTo(x1,y1);
x2:=random(paintbox1.width);
y2:=random(paintbox1.height);
paintbox1.canvas.LineTo(x2,y2);
jetzt kannst du mit den variablen die länge der Linie ausrechnen.
aber ich denke, du solltest erstmal ein Tutorial zu TCanvas anschauen...
Gruß Frank