giImage is Image
giImage = dCopyScreenImage()
HReset(Captura)
Captura.Data = DateSys()
Captura.Hora = TimeSys()
Captura.Rotina = gsRotina
Captura.Observacao = gsObservacao
dResize(giImage,giImage..Width/1.2,giImage..Height/1.2)
Captura.Tela = giImage
HAdd(Captura)