Здравствуйте. Попробовал изменить Info21sysTPGraphics следующим образом.

PROCEDURE Save* (folder,file:ARRAY OF CHAR);
VAR   loc:Files.Locator;
f:Files.File;
res:INTEGER;
BEGIN
loc := Files.dir.This(folder$);
f:= Files.dir.New( loc, Files.dontAsk ); 	ASSERT( f # NIL );

HostBitmaps.ExportBitmap(v,f);

f.Register(file$ ,'', Files.dontAsk, res );
f.Close;
END Save;

Однако, после вывода рисунка и вызова этой процедуры получается
bmp файл нулевой длины. В чем может быть ошибка?

С уважением,