1:
2:
3:

  TTest=record
  a: String[50];
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  MStream:=TMemoryStream.Create;
  Client.Connect;
  Try
    MStream.Write(Test,SizeOf(TTest));
    Client.OpenWriteBuffer;
    Client.WriteStream(MStream,True,True);
    Client.CloseWriteBuffer;
  Finally
    Client.Disconnect;
    MStream.Free;
    end;