procedure TfrmP2K_MyMenu.ConvertBufferToMyMenuLinkStructure(ABuffer: pbytearray; var AMyMenuLink: TMyMenuLinks);
var
  i: integer;
  pos: integer;
  tmp: string;

begin
  pos:= 0;
  AMyMenuLink.Trash01:= ABuffer[pos]; inc(pos);
  AMyMenuLink.LinkLength:= ABuffer[pos]; inc(pos);
  tmp:= '';
  for i:=1 to 100 do tmp:= tmp + chr(ABuffer[pos+i-1]);
  AMyMenuLink.LinkName:= tmp;
end;