delphi中有没有类似VB中的Scale函数？？？（它是个自定义坐标系统的函数）

delphi中有没有类似VB中的Scale函数？？？
Scale函数在VB中就是用来实现自定义容器的坐标系统的。一般组件默认的坐标系统是左上角的坐标为(0,0),右下角坐标为(Width,Height),为了根据自己的需要来定义坐标系统，在delphi可以用什么样的函数来实现啊??
比如我想把paintbox组件的右上角坐标设为（-1，1），右下角坐标设为（1，-1）。如何实现呢？求救。、。