if tip=1 then
    begin
    l:=cBoard[x,y];
    if l=1 then
    cMat[x,y].Brush.color:=clRed;
    if x-1>=0 then
    cMat[x-1,y].brush.color:=clGray;
    if x+1<=9 then
    cMat[x+l,y].brush.color:=clGray;
    if y-1>=0 then
    cMat[x,y-1].brush.color:=clGray;
    if y+1<=9 then
    cMat[x,y+1].brush.color:=clGray;
    if ((levo(x,y,1)+desno(x,y,1))>(gore(x,y,1)+dole(x,y,1)))and (l<>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)))and (l<>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;