Abgesehen davon, dass mir das sehr nach Hausaufgaben oder Klassenarbeit aussieht (Wir sind nicht dafür da, deine Hausaufgaben für dich zu machen!):
Damit man den Code überhaupt halbwegs lesen kann solltest du den Code in [delphi]-Tags einschließen und nicht eine komplette
Unit posten sondern nur den Teil an dem es hängt.
Und da ist schon das andere Problem: Deine (nicht wirklich vorhandene) Fehlerbeschreibung hilft nicht wirklich beim Helfen.
Du kannst nicht einfach deinen kompletten Code hier posten und sagen: "Macht mal das das funktioniert, und zwar bitte schnell!"
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."