Buttons popup on a TMemo on MouseEnter and disappears on MouseLeave

Question

procedure TfrmMain.memInfoMouseEnter(Sender: TObject);
begin
  if AktivArt then
  begin
    btnAddMemo.BringToFront;
    btnEditMemo.BringToFront;
  end;
end;

procedure TfrmMain.memInfoMouseLeave(Sender: TObject);
begin
  btnAddMemo.SendToBack;
  btnEditMemo.SendToBack;
end;

This works very well, but the problem is that when the mouse enter the buttons the they start to blink. Anyone who have a suggestion to solve this, or another way to get popup-buttons in a TMemo?