Listview Event Error for Round Images

Question

I have a listview linked to an Fdmemtable at the event :

TForm31.ListView1UpdateObjects(const Sender: TObject;
const AItem: TListViewItem);

i do the following procedure to leave the photos round :

var imagem : TListItemImage;
begin

imagem := AItem.Objects.FindObject('Image_funcionario') as TListItemImage;

Circle1.Fill.Bitmap.Bitmap := imagem.Bitmap;

Image1.Bitmap := Circle1.MakeScreenshot;

TListItemImage(AItem.Objects.FindDrawable('Image_funcionario')).Bitmap := Image1.Bitmap;

end;

The problem is this : When I upload new records to Fdmemtable, the application skips a few lines of the event and doesn’t leave the photos round.