function LAN_SendClientMessage(ClientListLink: integer; Msg:string): boolean;
var  Client: TSimpleClient;
begin
if (ClientListLink>=0) and (ClientListLink<GLServer.Clients.Count) then
 begin
 Client := GLServer.Clients.Items[ClientListLink];
 if LowerCase(Client.Name)=LowerCase(Client.Name) then
   begin
   TIdPeerThread(Client.Thread).Connection.WriteLn(Msg);
   LAN_SendClientMessage:=true;
   end
 else
   begin
   Application.ProcessMessages;
   LAN_SendClientMessage:=false;
   end;
 end
else
 begin
 ShowErrors('Êîìïüþòåð âûêëþ÷åí.'#13#13'Âêëþ ;÷èòå êîìïüþòåð, ëèáî ïðîâåðüòå'#13'ñåò 29;âîé ïðîâîä.');
 LAN_SendClientMessage:=false;
 end;
end;