Класика считывания строк с двоичного файла

[Khayzenberg]

Доброго времени суток! Перед любим начинающим програмистом постает эта задачка: Нужно в двоичный файл сначала записать длину строки в потом считать эту строку. Делаю так а ничего не получаеться(куча ошибок чтения памяти):
------Сохранение-------

procedure TfrmMain.btnSaveBinaryClick(Sender: TObject);
var mfs:TFileStream;
    size:cardinal;
    data:string;
begin
 try
  mfs:=TFileStream.Create('c:\temp\Binary.dat', fmOpenWrite); mfs.Seek(0, soFromEnd);
  data:=memData.Lines[0]; size:=Length(data)*2;
  mfs.WriteBuffer(size, 4); mfs.WriteBuffer(data, size);
 finally
  FreeAndNil(mfs);
 end;
end;

--------Чтение----------

procedure TfrmMain.btnLoadBinaryClick(Sender: TObject);
var mfs:TFileStream;
    size:cardinal;
    data:string;
begin
 try
  mfs:=TFileStream.Create('c:\temp\Binary.dat', fmOpenRead); mfs.Position:=0;
  while mfs.Position<>mfs.Size do begin
   mfs.ReadBuffer(size, 4);
   SetLength(data, size div 2);
   mfs.ReadBuffer(data, size);
   memData.Lines.Append(data);
  end;
 finally
  FreeAndNil(mfs);
 end;
end;

Народ подскажите пожалуйста в чем ошибки, и извините если не втом разделе!)

[Stilet]

mfs.WriteBuffer(data[1], size);

и

mfs.ReadBuffer(data[1], size);

Не понятно только зачем текстовые данные пихать в бинарный файл...

[Khayzenberg]

data[1]

А почему так, что значит эта запись

[Stilet]

Это значит что писать в файл нужно с первого символа строки
Все дело в том что в Делфи строка это не массив, а указатель на массив. Так что нужно передавать именно ячейку памяти, с которой начинается строка, а не ячейку памяти, где расположен указатель на начало строки.

[Khayzenberg]

Все ясно, спасибо за помощь!