procedure TForm1.btn1Click(Sender: TObject);
begin
     For I:=1 to 100 Do
      For J:=1 to 100 Do
            Begin
              l[i,j]:=Random(4);
              if (l[i,j]=2) then drwgrd1.canvas.Brush.Color := clRed else
              if (l[i,j]=3)  then drwgrd1.canvas.Brush.Color := clBlue else
              drwgrd1.canvas.Brush.Color := clYellow;
              drwgrd1.canvas.FillRect(drwgrd1 .CellRect(i,j));
            end;
end;