ClientSocket steam verschicken mit vorherigen Zeichen

[gandime]

Hi,
ich möchte einen Stream verschicken:

Delphi-Quellcode:

var
  cs: TClientSocket;
  FStream:TFileStream;
begin
  cs.Socket.SendStream(FStream);
end;

wie kann ich jetzt hier

Delphi-Quellcode:

procedure TForm1.csWrite(Sender: TObject; Socket: TCustomWinSocket);
begin

end;

bevor das erste Stück des Stream verschickt wird Zeichen hinzufügen
also z.B. 'File-000001:' und im Anschluss dann das Stück vom Stream?

und eine Weitere frage: wie kann man bei der csWrite Procedure herausfinden um welchen Stream es sich handelt, wenn man mehrere gleichzeitig verschickt?

mfg
gandime