Zeichenkette per zufall ändern

[Tryer]

Meinst Du sowas ?

Delphi-Quellcode:

var
  s: string = '111,111,111,111,111,111,111';
  AnzDreierGruppen: Integer = 7;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Index: Integer;
begin
    Index := Random(AnzDreierGruppen) * 4 + 2;
    if S[Index] = '1' then
      s[Index] := '2'
    else
      s[Index] := '1';
   Caption := s;
end;

MfG,
Tryer