DefineType.pas

//{$DEFINE FileType} // сейчас файлы
// Для типа доступа Файлы использовать директиву FileType
// Для типа Потоки использовать директиву StreamType
{$DEFINE StreamType}
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}