aber auf welchen wert korrigieren??
Schau Dir den Quellcode, welchen Du gepostet hast an und versuche ihn zu verstehen.
Kleine Hilfe:
Mit TextOut gibst Du den Text aus.
Dann kommt XPos := XPos + .... in dieser Zeile wird XPos ein neuer Wert zugewiesen.
Danach willst Du die Linie zeichnen.
Du musst die Linie natürlich voher zeichnen, bevor XPos einen neuen Wert bekommt.
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.