delphi怎样用ClientSocket发送http请求 通过需要验证用户和（delphi三层通信方式）

ProcedureTForm1.BitBtn1Click(Sender:TObject)

;varI:Integer;BeginforI:=0toServerSocket1.Socket.ActiveConnections-1DoBegin//ifServerSocket1.Socket.Connections[I].SocketHandle=XXXthenServerSocket1.Socket.Connections[I].SendText('amsg')

;//服务端发送End;End;procedureTForm1.ClientSocket1Read(Sender:TObject;Socket:TCustomWinSocket)

;beginSocket.ReceiveText;//客户端接收end;