function TfrmP2K_RingStyles.GetNameByIndex(AIndex: byte): string;
var
  fName: string;
  xList: TStringList;
begin
  result:= '';
  fName:= ExePath + 'Data\melody.lst';
  if not(FileExists(fName)) then exit;
  xList:= TStringList.Create;
  xList.LoadFromFile(fName);
  if AIndex> xList.Count-1 then exit;
  result:= xList.Strings[AIndex];
  xList.Free;
end;