Hat zwar nix mit der Frage zu tun aber ist es wirklich so schwer Strin := Strin + '1';
zu schreiben statt concat zu verwenden?
Außerdem solltest du dich mal über den Delphi-Style-Guide informieren.
Ist genau die Art von hilfreicher Antwort die ein Einsteiger gerne liest.
Anything, carried to the extreme, becomes insanity. (Exilant)