code:TAffineParam = record c00, c01, c02:double; c10, c11, c12:double; end;
code:xp:=Affine^.c00 + Affine^.c01 * e + Affine^.c02 * n; yp:=Affine^.c10 + Affine^.c11 * e + Affine^.c12 * n;
http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83764