{Проверка выхода слова из поля}
if SCol+length(sWord)>fm_Main.sg.ColCount then begin
   
   EMessage := _M_LgOut;
   
   Result := false;
   
   exit;
   
   end;


{Проверка соприкосновения слова по правилу морского боя}

if (SCol>0) and (Field[SCol-1,SRow].Letter<>' ') and (not WordCross[1]) then begin
   
   EMessage := _M_LgContactL;
   
   Result := false;
   
   exit;
   
   end;


if (SCol+Length(sWord)-1<fm_Main.sg.ColCount) and
   (Field[SCol+Length(sWord),SRow].Letter<>' ') and
   (not WordCross[Length(sWord)]) then begin
   
   EMessage := _M_LgContactR;
   
   Result := false;
   
   exit;
   
   end;


if SRow>0 then
   
   for i:=SCol to SCol+Length(sWord)-1 do
      
      if (Field[i,SRow-1].Letter<>' ') and (not WordCross[i-SCol+1]) then begin
         
         EMessage := _M_LgContactU;
         
         Result := false;
         
         exit;
         
         end;


if SRow<14 then
   
   for i:=SCol to SCol+Length(sWord)-1 do
      
      if (Field[i,SRow+1].Letter<>' ') and (not WordCross[i-SCol+1]) then begin
         
         EMessage := _M_LgContactD;
         
         Result := false;
         
         exit;
         
         end;


for i:=1 to Length(sWord) do
   
   if (FieldNextCell(i).Letter<>' ') and (FieldNextCell(i).Letter<>sWord[i]) then begin
      
      EMessage := _M_LgCrossError;
      
      Result := false;
      
      exit;
      
      end;