Transferencia de Archivos x Sockets

[kdemia]

estoy en lo mismo que vos.. yo hice este codigo que no funciona pero supuestamente tendria que funcionar, a ver si alguien lo mejora...

Código Delphi [-]
procedure onreaddelserversocket ( ..parametros..);
var
   Stream: TMemoryStream;
   Size: Integer;
begin
   Stream:= TMemoryStream.Create;
   Size:= Socket.ReciveLength;
   Socket.ReciveBuf(Stream, Size);
   Image1.Picture.Bitmap.LoadFromStream(Stream);
   Stream.Free;
end;