text forwarding

Hi Everyone!
this mis my code:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
Msg : string;
begin
while AThread.Connection.Connected do
begin
Msg := AThread.Connection.ReadLn;
if
(UpperCase(Msg) = 'QUIT') or (UpperCase(Msg) = 'BYE') then
AThread.Connection.Disconnect
else
AddLog('Leggi in: ' + Msg);
IdTCPClient1.Socket.??(Msg);
AThread.Connection.WriteLn;
end;
end;

The question is:which option I have to use to forward the string Msg(something like ".Socket.SendText" in delphi6 tcpclient socket)??

thank you!!
Christian
Thank

Hi Guys!!
I didn't write that I'm working with delphi7, and I'm looking for an aextension of the IdTCPClient socket similar to the sendtext command in delphi6's client socket!!
Thank you!!

IdTCPClient has a method called Write, which is what you're looking for.
IdTCPClient1.Write(Msg);