//процедура печати StringGrid
Var
		//отступы (поля) сверху и слева страницы
	LeftMarg,TopMarg:Integer;
		//переменная для хранения значения отступа сверху от страницы для текущей
	//строки (в пикселях)
	CurrLine,
		//переменная для хранения значения отступа слева от страницы длч положения левой
	//границы текущей ячейки (в пикселях)
	LeftBorder,
		//тоже для правой границы текущей ячейки
	RightBorder,
		//переменная для хранения значения отступа сверху от страницы для положения верхней
	//границы текущей ячейки (в пикселях)
	TopBorder,
		//тоже для нижней границы текущей ячейки
	BottomBorder,
		//текущая строка таблицы
	Row,
		//текущий столбец таблицы
	Col:Integer;
		//отступ текста от левой границы ячеки
	LeftOffset:Integer;
		//счетчик страниц
	PageCount:Integer;
		//флаг конца страницы
	PageEnded:Boolean;
		//позиция для печати номеров страниц
	PageCountPrnPos:Integer;
		//диалог принтера
	PrintDialog:TPrintDialog;