tmemorystream

Ответ от Pryda[гуру]
var OutputStream :TMemoryStream ;
filesize:int64 ;
filename :string ;
StrSize:int;
...
OutputStream.Write( FileSize,SizeOf(FileSize)) ;
StrSize:=Length(FileName);
OutputStream.Write(StrSize,SizeOf(StrSize)) ; //сохраняем размер строки
OutputStream.Write(pointer(FileName)^,StrSize) ; //сохраняем символы строки
{запись самого файла в конец потока}
...
считывание
var OutputStream :TMemoryStream ;
filesize:int64 ;
filename :string ;
StrSize:int;
...
OutputStream.Position := 0 ;
OutputStream.Read( FileSize,SizeOf(FileSize)) ;
OutputStream.Read( StrSize,SizeOf(StrSize)) ; //считываем длину строки
SetLength(FileName,StrSize); //данная функция выделяет под строку необходимое количество байт в памяти
OutputStream.Read(pointer(FileName)^,StrSize) ; //считываем символы строки
...
Источник: google.ru
в FileName считывается предварительно записанное содержание