Text in 5er Buchstabengruppen anordnen

[shmia]

Mal so ganz grundsätzlich:
Man sollte die Aufgabe "Text in 5er Buchstabengruppen anordnen" nicht direkt auf den Labels ausführen sondern eine saubere Funktion schreiben.

Delphi-Quellcode:

function Mach5erGruppen(const text:string):string;
var  i:integer;
begin
  Result := text;
  for i := (Length(text) - 1) div 5 downto 1 do 
    Insert(' ', result, i * 5 + 1);
end;

Ohne eine eigene Funktion sieht der Sourcecode wie ein Haufen Müll aus; man weiss eine Woche später nicht mehr was da eigentlich gemacht wird.