[Bargest]

Скорее всего, надо очистить новый элемент меню и копировать все свойства старого (шрифт, текст, цвет, ...) в новый. Это к вопросу о "ичего понять не могу что надо сделать".
Например, вот код ASSIGN для картинок (TBitMap):

Код:

procedure TBitmap.Assign(Source: TPersistent);
var
  DIB: TDIBSection;
{$IF DEFINED(CLR)}
  NewHandle: HBITMAP;
  NewPalette: HPALETTE;
{$IFEND}
begin
  if (Source = nil) or (Source is TBitmap) then
  begin
    FreeContext;
{$IF DEFINED(CLR)}
    System.Threading.Monitor.Enter(BitmapImageLock);
{$ELSE}
    EnterCriticalSection(BitmapImageLock);
{$IFEND}
    try
      if Source <> nil then
      begin
        TBitmap(Source).FImage.Reference;
        FImage.Release;
        FImage := TBitmap(Source).FImage;
        FTransparent := TBitmap(Source).FTransparent;
        FTransparentColor := TBitmap(Source).FTransparentColor;
        FTransparentMode := TBitmap(Source).FTransparentMode;
        PixelFormat := TBitmap(Source).PixelFormat;
        FAlphaFormat := TBitmap(Source).AlphaFormat;
      end
      else
{$IF DEFINED(CLR)}
        NewImage(0, 0, DIB);
{$ELSE}
      begin
        FillChar(DIB, Sizeof(DIB), 0);
        NewImage(0, 0, DIB, False);
      end;
{$IFEND}
    finally
{$IF DEFINED(CLR)}
      System.Threading.Monitor.Exit(BitmapImageLock);
{$ELSE}
      LeaveCriticalSection(BitmapImageLock);
{$IFEND}
    end;
    PaletteModified := Palette <> 0;
    Changed(Self);
  end
  else
  begin
{$IF DEFINED(CLR)}
    if Source is System.Drawing.Bitmap then
    begin
      FreeContext;
      InternalLoadFromBitmap(System.Drawing.Bitmap(Source), NewHandle, NewPalette, DIB);
      NewImage(NewHandle, NewPalette, DIB, System.Drawing.Bitmap(Source).RawFormat);
      PaletteModified := Palette <> 0;
      Changed(Self);
    end
    else
{$IFEND}
      inherited Assign(Source);
  end;
end;

т.е. проверяют, возможно ли это вообще и копируют свойства и картинку из Source в Dest, по-разному в зависимости от того, чем является Source.