Abgesehen davon, dass du es nicht schaffst, deinen Quellcode einfach mal zu zippen und als Anhang hochzuladen...nein, der Codeschnipsel ist furchtbar formatiert, es fehlen viele schließende
end;
und wenn du einfach mal auf F9 drücken würdest, müsste auch dein Delphi6-Compiler dir mindestens zwei Fehler ausspucken!
Die Schleifen-Variable i kann kein Double sein und Anz_Striche ist kein Array!
Und wenn du in der Schleife per MoveTo und LineTo auf den Canvas rummalen willst, dann musst du das auch zur Schleife per
begin end;
hinzufügen!
EDIT: Ach ja...auch Screenshots vom Ist-Zustand und dem gewünschten Zustand wären super duper hilfreich!