procedure TfrmP2K_MyMenu.ConvertMyMenuLinkStructureToBuffer(AMyMenuLink: TMyMenuLinks; var ABuffer: pbytearray);
var
  i {, j}: integer;
  pos: integer;
  tmp: string;

begin
  pos:= 0;
  ABuffer[pos]:= AMyMenuLink.Trash01; inc(pos);
  ABuffer[pos]:= AMyMenuLink.LinkLength; inc(pos);
  tmp:=  AMyMenuLink.LinkName;
  tmp:= PChar(tmp);
  for i:=1 to length(tmp) do ABuffer[pos+i-1]:= ord(tmp[i]);
  inc(pos, length(tmp));
  ABuffer[pos]:= 0;
end;