var
  Form1: TForm1;
  h,w,dh,dw:integer;
  i,j:byte;
  r,g,b:byte;
  flox,floy:integer;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
begin
with form1 do
  begin
    h:=ClientHeight;
    w:=ClientWidth;
    dh:=round(h/15);
    dw:=round(w/15);
    flox:=dw-3;
    floy:=dh-3;
   for i:=1 to 15 do
    for j:=1 to 15 do
     begin
      Canvas.Rectangle((j-1)*dw,(i-1)*dh,j*dw,i*dh);
      randomize();
      r:=random(255);
      g:=random(255);
      b:=random(255);
      Canvas.Brush.Color:=rgb(r,g,b);
      Canvas.FloodFill((j)*flox,(i)*floy,canvas.Pixels[(j)*flox,(i)*floy],fsSurface);
   end;
 end;
end;