Client Server Socket передача информации с помощью потока

[One.Love]

У меня вопрос есть интересный.
Пишу в данный момент программу которая состоит из двух частей Сервера и клиента.
Клиент с копмонентом ServerSocket получает список программ запущеных на компьютере и по Запросу от сервера с компонентом ClientSocket - Сохраняет полученный список программ в файл и передает этот файл по сети: так вот мне нужно отправить этот список не сохраняя его в текстовый файл, нужно просто сохранить его в поток: ListBox1.Items.SaveToStream(fs); а дальше то как его отправить подскажите пожалуйста?
Заранее примного благодарен!

[Snoopy]

Примеров передачи фалов через ServeSocket ClientSocket с исходниками полно, в бей в любом поисковике. Копировать код сюда не имеет смысла!!!
А так если конкретно то:

Socket.SendStream(fs);

[One.Love]

Сейчас попробовал сделать так:

procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
var
fs: TFileStream;
Data: TMemoryStream;
begin
if Socket.ReceiveText = 's' then
begin
ListBox1.Items.SaveToStream(Data);
Data.LoadFromStream(fs);
try
fs.Position:= 0;
Socket.SendText('Size:'+IntToStr(fs .Size) + #0) ;
Socket.SendStream(fs);
Timer2.Enabled:=True;
finally
end;
end;
end;

но он выдает ошибку:

Access violation at address 0041599F in module 'Project.exe'. Read of address 00000000

Раньше был код:

procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
var
fs: TFileStream;
Data: TMemoryStream;
begin
if Socket.ReceiveText = 's' then
begin
ListBox1.Items.SaveToFile('C:/text.txt');
fs:=TFileStream.Create('C:/test.txt', fmOpenRead);
try
fs.Position:= 0;
Socket.SendText('Size:'+IntToStr(fs .Size) + #0) ;
Socket.SendStream(fs);
Timer2.Enabled:=True;
finally
end;
end;
end;

Но мне нужно чтобы инфа отправлялась сразу из листбокса, без сохранения нового файла

[One.Love]

мне нужно загрузить данные из листбокса в поток т.е. в MemoryStream потом преобразовать из MemoryStream в FileStream и передать
Socket.SendStream(fs);

[Snoopy]

А поток не создал
data:= TMemoryStream.Create
Замени

Socket.SendText('Size:'+IntToStr(fs.Size) + #0) ;
Socket.SendStream(fs);

На

Socket.Connections[0].SendText(IntToStr(data.Size) + #0);
Socket.Connections[0].SendStream(data);

или добавь Connections[i]

А чем тебя просто MemoryStream не устраивает???