if tip=1 then
    begin
    l:=cBoard[x,y];
    if (levo(x,y,1)+desno(x,y,1))>(gore(x,y,1)+dole(x,y,1))then
    begin
    k:=x-levo(x,y,1)+1;
    if k-1>=0 then
    cMat[k-1,y].brush.color:=clGray;
    if k+l<=9 then
    cMat[k+l,y].brush.color:=clGray;
    for i:=0 to l-1 do
        cMat[k+i,y].brush.color:=clRed;
    end;
    if (gore(x,y,1)+dole(x,y,1))<=(levo(x,y,1)+desno(x,y,1)) then
    begin
    k:=y-gore(x,y,1)+1;
    if k-1>=0 then
    cMat[x,k-1].brush.color:=clGray;
    if k+l<=9 then
    cMat[x,k+l].brush.color:=clGray;
    for i:=0 to l-1 do
        cMat[x,k+i].brush.color:=clRed;
    end;
    end;