Исключительная ситуация: EInOutError

[Khayzenberg]

Доброго времени суток Господа! Вот функция:

function Document.WriteElement(el:Element):boolean;
var ws, sel:cardinal;
    mfs:TFileStream;
begin
 mfs:=TFileStream.Create(NameFile, fmOpenWrite); mfs.Seek(0, soFromEnd);
 sel:=sizeof(el^);
 ws:=mfs.Write(el^, sel);
 FreeAndNil(mfs);
 if ws=sel then result:=true else result:=false;
end;

Ее назначение сохранить в файл структуру(передаваемый параметр функции). При удачном сохранении виводиться true. Здесь нужно перестраховаться от исключительных ситуаций: ошибок ввода/вывода, например, запись в файл а места на диске уже нет, и тому подобных. Я только начал изучать try..except..end; try..finally..end; Смысл понял. А применить на практике не могу Помогите вставить!

[Yurk@]

try
  mfs:=TFileStream.Create(NameFile, fmOpenWrite); mfs.Seek(0, soFromEnd);
  sel:=sizeof(el^);
  ws:=mfs.Write(el^, sel);
  Finally
    FreeAndNil(mfs);
  end;
result := ws=sel;