ListBox. От клиента к серверу.

[GrabbeR]

Доброго времени суток. Проблема в следующем: при отправке данных из ListBox от клиента к серверу, второй принимает их в виде сообщения и только одну выделенную строку.

//Клиент
procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
begin
s:=ListBox1.Items[ListBox1.Itemindex];
ClientSocket1.Socket.SendText(s);
end;

//Сервер
procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
begin
showmessage(socket.ReceiveText);
end;

Как сделать, чтобы данные передавались из ListBox клиента в ListBox сервера в полном объеме?
Заранее спасибо!

[SovereignSun]

StringList передавай, а не string