如何将数据传到客户端（公司有急用，请大家帮忙看一下，谢谢）(200分)

serversocket的type为stThreadBlocking,现在从客户端传来数据，采用线程来从后台的数据库中取出数sendstr(string类型），请问sendstr如何从服务器端发到客户端？
有代码就更好了。
procedure TForm1.ServerSocketGetThread(Sender: TObject;ClientSocket:
TServerClientWinSocket;
var SocketThread: TServerClientThread);
var mm:dataread;//定义的线程，作用是接收客户端的数据，然后从数据库中读出数据，再发到客户端。
begin
mm:=dataread.Create(ClientSocket);
end;

我的线程定义如下：
procedure dataread.Execute;
var Stream : TWinSocketStream;
buffer1: array[0 .. 69] of Char;
begin
Stream := TWinSocketStream.Create(client_bank, 3000);
FillChar(Buffer1,76, 0);
if Stream.WaitForData(2000) then //等待数据到来
begin
if Stream.Read(Buffer1,76) = 0 then //读数据
client_bank.Close
else
begin
//处理受到的数据
clientsend:=buffer1;
form1.SnEdit1.Text:=clientsend;
if copy(clientsend,3,3)='110' then
QuerySend//对数据库的操作
else
if copy(clientsend,3,3)='120' then
WriteSend;//对数据库的操作
Stream.Free;
client_bank.Close;
end;
end
else
client_bank.Close;
end;

网络编程，没好好用过，你可以去参考DELPHI自身带的DEMOS，里面有网络
编程的例子。