StringGrid

Boa tarde. Estou tentando criar um aplicativo cujo o mesmo terá:

• 1 TStringGrid com 15 colunas e 25 linhas.
• 1 Button.

Desejo que ao clicar nesse botão, a tabela(StringGrid) seja preenchida com números randômicos, sendo que, os números nas linhas não poderão se repetir e terão que ser de 1 a 25.

Até agora só consegui gerar os números de 1 a 25 em toda tabela... falta impedir que números se repitam em cada linha :huh:

procedure Tfrm_Principal.Button_EmbaralharClick(Sender: TObject);
var
i, j: Integer;
begin

for i := 0 to StringGrid1.RowCount -1 do
begin

for j := 0 to StringGrid1.ColCount -1 do
begin

 Randomize;
 StringGrid1.Cells[j, i] := IntToStr(1 + Random(25));

end;

end;