Schleifen

[HeliTronic]

Delphi-Quellcode:

begin
RANDOMIZE;
 t:= random(5)+1;
   t2:= random(5)+1;
     stringgrid1.objects[t2,t]:=pointer(1);
 end;
begin
RANDOMIZE;
 t:= random(5)+1;
   t2:= random(5)+1;
     stringgrid1.objects[t2,t]:=pointer(1);
   end;
begin
RANDOMIZE;
 t:= random(5)+1;
   t2:= random(5)+1;
     stringgrid1.objects[t2,t]:=pointer(1);
   end;
begin
RANDOMIZE;
 t:= random(5)+1;
   t2:= random(5)+1;
     stringgrid1.objects[t2,t]:=pointer(1);
   end;
begin
RANDOMIZE;
 t:= random(5)+1;
   t2:= random(5)+1;
     stringgrid1.objects[t2,t]:=pointer(1);
   end;
end;

so das würd ich gerne kürzer fassen, hab schon die schleifen durchprobiert und auch versucht, dass mit entscheidungen zu machen, aber es klappt einfach nix... ich möcht das nur einmal dastehen haben und nicht gleich 5 mal -.-
ich weiß aber nich mehr was ich noch versuchen soll
schon mal danke für die hilfe