Warum geht kein copy? Folgendes sollte doch problemlos klappen:
Printer.Canvas.TextOut(frandlinks ,frandoben + cmtopixel(4,fdpih) , copy(ZQuery.FieldByName('firma').AsString, 1, 12));
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)