Código Delphi [-] imaVisor.Picture.Assign((Sender as TImage).Picture)
imaVisor.Picture.Assign((Sender as TImage).Picture)