Wenn man ordentlich einrückt, sieht man sofort, was da los ist. Die Zeile mit dem "with" kannst Du aber auch weglassen, da die beabsichtigte Kürzung im Anschluss ja nicht erfolgt.
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin
image1.Canvas.MoveTo(0,70);
image1.Canvas.LineTo(0,70);
end;
[edit] Und MoveTo und LineTo sollten ja auch unterschiedliche Koordinaten aufweisen, sonst kann ja keine Linie dabei herauskommen. [/edit]