procedure TfrmMain.tcpServerExecute(AThread: TIdPeerThread);
var
Client: TSimpleClient;
Com, // System command
Msg: string;
begin

if not AThread.Terminated and AThread.Connection.Connected then
begin
{ Get the text sent from the client }
Msg := AThread.Connection.ReadString(20);
AThread.Connection.Write(msg);
memEMotes.Lines.Add(msg);
AThread.Connection.Disconnect;
end;
end;