Membuat Fungsi Random Huruf dan Angka Pada Delphi 7

sedikit sering nih tentang delphi.
awal na saya ingin membuat kode secara acak dan otomatis....
setelah lama mencari di internet ternyata saya mendapatkan fungsi random pada delphi seperti dibawah ini...
langsung ajadeh
di form tambahkan 1 editbox dan 1 button
lalu buat fungsi seperti dibawah ini..
 
function RandomKodeString: string;
const
  Codes64 = '0123456789ABCDEFGHIJ';
var
  i, x: integer;
  s1, s2: string;
begin
  s1 := Codes64;
  s2 := '';
  for i := 0 to 6 do
  begin
    x := Random(Length(s1));
    x := Length(s1) - x;
    s2 := s2 + s1[x];
    s1 := Copy(s1, 1,x - 1) + Copy(s1, x + 1,Length(s1));
  end;
  Result := s2;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text := RandomKodeString();
end;