Оболочка для работы с Unicode файлами в Delphi

Необходимо написать класс на подобии TextFile, только для работы с Unicode файлами.

Должны быть доступны следующие функции:

F.OpenFile(filename: WideString; openmode: [fuRead, fuWrite]; filepos: [fuBegin, fuEnd]): boolean

Открывает файл. Если файл открыт для записи, то даже если он физически пока не существует, при попытки записи в него, файл будет автоматически создаваться. Формат - юникод.

Если filepos = fuBegin, то файл будет считываться с начала, если fuEnd, то с конца.

F.ReadStrLnW: WideString

возвращает строку из файла, а также перемещает курсор на строку выше/ниже, в зависимости от filepos

F.WriteStrW(const WStr: SideString)

добавляет текст в конец/начало файла (не с новой сткоки)

F.WriteLnW(const WStr: SideString)

добавляет текст в конец/начало файла (с новой сткоки)

F.WriteStreamW(SText: TMemoryStream)

добавляет текст из стрима в конец/начало файла с новой строки

F.EOF: boolean

проверяет на конец файла

F.BOF: boolean

проверяет на начало файла

F.Seek(LineNo: Cardinal)

устанавливает курсор на строку номер LineNo

F.CurPos: Cardinal

возвращает номер текущей строки

F.CloseFile: boolean

закрывает файл

------

Также должен прилагаться пример использования всего перечисленного на Delphi 7