Wie wäre es mit einer Repeat...Until Schleife?
Hatte ich auch schon versucht.
Und was war das Ergebnis?
Naja, hatte damals keins, weil ich nicht wusste, wie... Habe nun aber eine Idee bzw. es klappt auch schon!
Trotzdem danke für die Mühen! ... und die schnellen Antworten!
Code:
procedure TForm1.leerzeichen(text:string);
var i:integer;
begin
for i:=1 to 192 do
if ((i mod 3) = 0) then begin
//delete(text, i, 1);
insert(' ', text, i);
end;
trimright(text);
label2.caption:=text;
end;
... so hat's jetzt geklappt!