[The Shadow]

Может я не так понял:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i1, i2, i3: Integer;
s: String;
t, t2: Char;
begin
Randomize;
i1:=Random(Length(Edit1.Text)) + 1;
i2:=Random(Length(Edit1.Text)) + 1;
i3:=Random(Length(Edit1.Text)) + 1;
s:=Edit1.Text;
t:=s[i2];
t2:=s[i3];
s[i2]:=s[i1];
s[i3]:=t;
s[i1]:=t2;
Edit1.Text:=s;
end;