delphi how to send text from indy TCPServer to client : i need a simple Fix in my chat app Made with **TCPServer** and **TCPClient** please with no additional code, just send and receive text

    procedure TServerApp1.Button1Click(Sender: TObject);
    var AContext : TIdContext;
    begin
         AContext.Connection.Socket.Write(length(newMSG.Text));
         AContext.Connection.Socket.Write(newMSG.Text);
    end;

thanks in advance