Código Delphi [-] campo1.asstring:= FontToStr(Edit1.text);
campo1.asstring:= FontToStr(Edit1.text);
Código Delphi [-] StrToFont(dtmImp.qryCampo1.AsString,QRDBtext1.Font);
StrToFont(dtmImp.qryCampo1.AsString,QRDBtext1.Font);