так один сантиметр ширины и высоты на бумаге в дельфях выгдядит так:
Printer.PageWidth/21
Printer.PageHeight/29,7

Далее, папример, так:
X1:=round(2*Printer.PageWidth/21);
Y1:=round(2*Printer.PageHeight/29.7);
X2:=round(Printer.PageWidth — 2*Printer.PageWidth/21);
Y2:=round(Printer.PageHeight — 2*Printer.PageHeight/29.7);
Printer.Canvas.Rectangle(Rect(x1,y1,x2,y2));

Будет выведен прямоугольник с полями с каждой стороны по 2 см