StringGrid

[Lívio Bruno 0]

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;

end;