Der Quelltext ist krass. Du solltest ihn erst einmal stark überarbeiten und formatieren, da blicke ich nicht durch.
Viele Sachen lassen sich glaube ich in Funktionen auslagern, und ich denke man kann auch gut mit einigen Variablen weniger auskommen.
if clo = true then button9.Visible := true;
ist ganz unschön... mach lieber
button9.Visible := clo;
oder anstelle von
if clo = false then form1.Close;
if not clo then Close;
benutzen. Vergleiche auch True und False macht man nicht.
(Siehe
hier)
Das wars erstmal..