Запись двоичного файла

[Tzap]

Добрый день. Подскажите как считанные из sql двоичные данные (картинка) через Nav записать в файл. Пробую примерно следующий код

ADORecords := ADOCommand.Execute;
ADOFields := ADORecords.Fields;
ADOField := ADOFields.Item('ImageData');
VarImage := ADOField.Value;

ImageFile.TEXTMODE(FALSE);
ImageFile.CREATE('с:\image.jpg');
ImageFile.WRITE(VarImage);

VarImage - переменная Variant, через Binary вообще получается
записать в файл не получается, возникает ошибка про типы данных. Как корректно произвести запись в файл? через потоки?