Mal kurz
OT: Formatier mal den unteren Teil des Codes, denn der is echt
Noch ein kleiner Tipp:
statt dem ganzen IntToStr(...) + ',' + ...
Schau dir mal den Format-befehl an
Format('%d, %d, %d, %d', [a, aa, al, a2]);
ann wird der Code auch mal etwas sauberer...