乱数の出力の仕方

---

1〜99の乱数をテキストに出力したいため、以下のコードを作りました。
しかし、等間隔ごとに同じ数字が出力してしまいます。
どなたか教えてください。

procedure TForm1.Button1Click(Sender: TObject);
var
  i,M: Integer;
  S: string;
  StL1: TStringList;

begin
  StL1 := TStringList.Create;

  for i:=1 to 100000 do
  begin

    Randomize;

    M:= Trunc(Random(99)) +1;
    S:= Format('%.2d',[M]);
    StL1.Add(S);

  end;

  StL1.SaveToFile(ExtractFilePath(Application.ExeName)
                     + '乱数.txt');
  StL1.Free;
end;

編集    削除

---

Randomize;
をfor文の前に移動すると、どうなります？

編集    削除

---

うまくいきました。ありがとうございました。

編集    削除

---

解決しようぜ！

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。