UnitKeys.pas

unit UnitKeys;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,
  GUIHelpers, Vcl.Menus;

type
  TMulticoreMapping = record
    Name: string;
    x08, x00, x09, x01, x0a, x0b: string;
  end;

  TFrameKeys = class(TFrame)
    ImageFC: TImage;
    Label1: TLabel;
    ImagePCE: TImage;
    Label2: TLabel;
    ImageSFC: TImage;
    Label3: TLabel;
    ImageMD: TImage;
    Label4: TLabel;
    ImageGB: TImage;
    Label5: TLabel;
    ImageGBA: TImage;
    Label6: TLabel;
    LabelPlayer1: TLabel;
    ShapePlayer1: TShape;
    Image1A: TImage;
    Image1B: TImage;
    Image1X: TImage;
    Image1Y: TImage;
    Image1L: TImage;
    Image1R: TImage;
    ShapePlayer2: TShape;
    LabelPlayer2: TLabel;
    Image2A: TImage;
    Image2B: TImage;
    Image2X: TImage;
    Image2Y: TImage;
    Image2L: TImage;
    Image2R: TImage;
    Label7: TLabel;
    ComboBoxFC1A: TComboBox;
    CheckBoxFC1A: TCheckBox;
    ComboBoxFC1B: TComboBox;
    CheckBoxFC1B: TCheckBox;
    ComboBoxFC1X: TComboBox;
    CheckBoxFC1X: TCheckBox;
    ComboBoxFC1Y: TComboBox;
    CheckBoxFC1Y: TCheckBox;
    ComboBoxFC1L: TComboBox;
    CheckBoxFC1L: TCheckBox;
    ComboBoxFC1R: TComboBox;
    CheckBoxFC1R: TCheckBox;
    ComboBoxFC2A: TComboBox;
    CheckBoxFC2A: TCheckBox;
    ComboBoxFC2B: TComboBox;
    CheckBoxFC2B: TCheckBox;
    ComboBoxFC2X: TComboBox;
    CheckBoxFC2X: TCheckBox;
    ComboBoxFC2Y: TComboBox;
    CheckBoxFC2Y: TCheckBox;
    ComboBoxFC2L: TComboBox;
    CheckBoxFC2L: TCheckBox;
    ComboBoxFC2R: TComboBox;
    CheckBoxFC2R: TCheckBox;
    ButtonFCDefaults: TButton;
    TimerLazyLoad: TTimer;
    ComboBoxPCE1A: TComboBox;
    CheckBoxPCE1A: TCheckBox;
    ComboBoxPCE1B: TComboBox;
    CheckBoxPCE1B: TCheckBox;
    ComboBoxPCE1X: TComboBox;
    CheckBoxPCE1X: TCheckBox;
    ComboBoxPCE1Y: TComboBox;
    CheckBoxPCE1Y: TCheckBox;
    ComboBoxPCE1L: TComboBox;
    CheckBoxPCE1L: TCheckBox;
    ComboBoxPCE1R: TComboBox;
    CheckBoxPCE1R: TCheckBox;
    ComboBoxPCE2A: TComboBox;
    CheckBoxPCE2A: TCheckBox;
    ComboBoxPCE2B: TComboBox;
    CheckBoxPCE2B: TCheckBox;
    ComboBoxPCE2X: TComboBox;
    CheckBoxPCE2X: TCheckBox;
    ComboBoxPCE2Y: TComboBox;
    CheckBoxPCE2Y: TCheckBox;
    ComboBoxPCE2L: TComboBox;
    CheckBoxPCE2L: TCheckBox;
    ComboBoxPCE2R: TComboBox;
    CheckBoxPCE2R: TCheckBox;
    ButtonPCEDefaults: TButton;
    ComboBoxSFC1A: TComboBox;
    CheckBoxSFC1A: TCheckBox;
    ComboBoxSFC1B: TComboBox;
    CheckBoxSFC1B: TCheckBox;
    ComboBoxSFC1X: TComboBox;
    CheckBoxSFC1X: TCheckBox;
    ComboBoxSFC1Y: TComboBox;
    CheckBoxSFC1Y: TCheckBox;
    ComboBoxSFC1L: TComboBox;
    CheckBoxSFC1L: TCheckBox;
    ComboBoxSFC1R: TComboBox;
    CheckBoxSFC1R: TCheckBox;
    ComboBoxSFC2A: TComboBox;
    CheckBoxSFC2A: TCheckBox;
    ComboBoxSFC2B: TComboBox;
    CheckBoxSFC2B: TCheckBox;
    ComboBoxSFC2X: TComboBox;
    CheckBoxSFC2X: TCheckBox;
    ComboBoxSFC2Y: TComboBox;
    CheckBoxSFC2Y: TCheckBox;
    ComboBoxSFC2L: TComboBox;
    CheckBoxSFC2L: TCheckBox;
    ComboBoxSFC2R: TComboBox;
    CheckBoxSFC2R: TCheckBox;
    ButtonSFCDefaults: TButton;
    ComboBoxMD1A: TComboBox;
    CheckBoxMD1A: TCheckBox;
    ComboBoxMD1B: TComboBox;
    CheckBoxMD1B: TCheckBox;
    ComboBoxMD1X: TComboBox;
    CheckBoxMD1X: TCheckBox;
    ComboBoxMD1Y: TComboBox;
    CheckBoxMD1Y: TCheckBox;
    ComboBoxMD1L: TComboBox;
    CheckBoxMD1L: TCheckBox;
    ComboBoxMD1R: TComboBox;
    CheckBoxMD1R: TCheckBox;
    ComboBoxMD2A: TComboBox;
    CheckBoxMD2A: TCheckBox;
    ComboBoxMD2B: TComboBox;
    CheckBoxMD2B: TCheckBox;
    ComboBoxMD2X: TComboBox;
    CheckBoxMD2X: TCheckBox;
    ComboBoxMD2Y: TComboBox;
    CheckBoxMD2Y: TCheckBox;
    ComboBoxMD2L: TComboBox;
    CheckBoxMD2L: TCheckBox;
    ComboBoxMD2R: TComboBox;
    CheckBoxMD2R: TCheckBox;
    ButtonMDDefaults: TButton;
    ComboBoxGB1A: TComboBox;
    CheckBoxGB1A: TCheckBox;
    ComboBoxGB1B: TComboBox;
    CheckBoxGB1B: TCheckBox;
    ComboBoxGB1X: TComboBox;
    CheckBoxGB1X: TCheckBox;
    ComboBoxGB1Y: TComboBox;
    CheckBoxGB1Y: TCheckBox;
    ComboBoxGB1L: TComboBox;
    CheckBoxGB1L: TCheckBox;
    ComboBoxGB1R: TComboBox;
    CheckBoxGB1R: TCheckBox;
    ComboBoxGB2A: TComboBox;
    CheckBoxGB2A: TCheckBox;
    ComboBoxGB2B: TComboBox;
    CheckBoxGB2B: TCheckBox;
    ComboBoxGB2X: TComboBox;
    CheckBoxGB2X: TCheckBox;
    ComboBoxGB2Y: TComboBox;
    CheckBoxGB2Y: TCheckBox;
    ComboBoxGB2L: TComboBox;
    CheckBoxGB2L: TCheckBox;
    ComboBoxGB2R: TComboBox;
    CheckBoxGB2R: TCheckBox;
    ButtonGBDefaults: TButton;
    ComboBoxGBA1A: TComboBox;
    CheckBoxGBA1A: TCheckBox;
    ComboBoxGBA1B: TComboBox;
    CheckBoxGBA1B: TCheckBox;
    ComboBoxGBA1X: TComboBox;
    CheckBoxGBA1X: TCheckBox;
    ComboBoxGBA1Y: TComboBox;
    CheckBoxGBA1Y: TCheckBox;
    ComboBoxGBA1L: TComboBox;
    CheckBoxGBA1L: TCheckBox;
    ComboBoxGBA1R: TComboBox;
    CheckBoxGBA1R: TCheckBox;
    ComboBoxGBA2A: TComboBox;
    CheckBoxGBA2A: TCheckBox;
    ComboBoxGBA2B: TComboBox;
    CheckBoxGBA2B: TCheckBox;
    ComboBoxGBA2X: TComboBox;
    CheckBoxGBA2X: TCheckBox;
    ComboBoxGBA2Y: TComboBox;
    CheckBoxGBA2Y: TCheckBox;
    ComboBoxGBA2L: TComboBox;
    CheckBoxGBA2L: TCheckBox;
    ComboBoxGBA2R: TComboBox;
    CheckBoxGBA2R: TCheckBox;
    ButtonGBADefaults: TButton;
    ButtonSave: TButton;
    PopupMenuFile: TPopupMenu;
    OpenDialogKMP: TOpenDialog;
    SaveDialogKMP: TSaveDialog;
    MenuItemImport: TMenuItem;
    MenuItemExport: TMenuItem;
    N1: TMenuItem;
    MenuItemsUndo: TMenuItem;
    MenuItemDefaults: TMenuItem;
    ImageMC: TImage;
    ComboBoxMulticore: TComboBox;
    EditMC1A: TEdit;
    EditMC1B: TEdit;
    EditMC1L: TEdit;
    EditMC1R: TEdit;
    EditMC1X: TEdit;
    EditMC1Y: TEdit;
    EditMC2A: TEdit;
    EditMC2B: TEdit;
    EditMC2L: TEdit;
    EditMC2R: TEdit;
    EditMC2X: TEdit;
    EditMC2Y: TEdit;
    procedure TimerLazyLoadTimer(Sender: TObject);
    procedure ButtonDefaultsClick(Sender: TObject);
    procedure MenuItemImportClick(Sender: TObject);
    procedure MenuItemExportClick(Sender: TObject);
    procedure ButtonSaveClick(Sender: TObject);
    procedure MenuItemsUndoClick(Sender: TObject);
    procedure MenuItemDefaultsClick(Sender: TObject);
    procedure ComboBoxMulticoreSelect(Sender: TObject);
    procedure Label7Click(Sender: TObject);
  private
    { Private declarations }
    procedure InitData();
    function GetFileName(): string;
    const
      // for accessing controls
      ConsoleNames: array[0..5] of string = ('FC', 'SFC', 'MD', 'PCE', 'GBA', 'GB');
      ButtonNames: array[0..11] of string = ('1X', '1Y', '1L', '1A', '1B', '1R', '2X', '2Y', '2L', '2A', '2B', '2R');
      MulticoreConsole = 4;
      // for populating controls
      KeyNamesFC:   array[0..3] of string = ('A',   'B',   'Turn Disk', 'Eject/Insert'); // also used by GB
      KeyValuesFC:  array[0..3] of Word   = ($0008, $0000, $000a, $000b); // also used by GB
      KeyNamesGB:   array[0..1] of string = ('A',   'B'); // also used by GB
      KeyValuesGB:  array[0..1] of Word   = ($0008, $0000); // also used by GB
      KeyNamesMAME: array[0..3] of string = ('A',   'B',   'C',   'D'); // also used by GB
      KeyValuesMAME:array[0..3] of Word   = ($0008, $0000, $000a, $000b); // also used by GB
      KeyNamesSFC:  array[0..5] of string = ('A',   'B',   'X',   'Y',   'L',   'R');
      KeyValuesSFC: array[0..5] of Word   = ($0008, $0000, $000a, $000b, $0009, $0001);
      KeyNamesPCE:  array[0..5] of string = ('I',   'II',        'invalid',   'invalid', 'invalid', 'invalid');
      KeyNamesMD:   array[0..5] of string = ('A',   'B / SMS 1', 'C / SMS 2', 'X',       'Y',       'Z');
      KeyValuesMD:  array[0..5] of Word   = ($0008, $0000,       $0001,       $000a,     $000b,     $0009); // also used by PCE
      KeyNamesGBA:  array[0..5] of string = ('A',   'B',   'invalid', 'invalid', 'L', 'R'); // according to GBA D-PAD test, invalid 1 sometimes works like B, invalid 2 sometimes works like A
      KeyValuesGBA: array[0..5] of Word   = ($0008, $0000, $0001,     $0009,     $000a,    $000b);

      MulticoreData: array[0..17] of TMulticoreMapping = (
         // Default GBA Mapping:                  A            B            X            Y            L         R
        (Name: 'blueMSX: Colecovision';     x08: 'L';    x00: 'R';    x09: '1';    x01: '2';    x0a: '4'; x0b: '3'),
        (Name: 'blueMSX: SG-1000';          x08: 'L';    x00: 'R'                                                 ),
        (Name: 'Caprice32';                 x08: 'Joy 1';x00: 'Joy 2'                                             ),
        (Name: 'CrocoDS: BASIC';            x08: 'X';    x00: 'Z';    x09: 'é';    x01: '"';                      ),
        (Name: 'CrocoDS: default Joystick'; x08: 'Joy 1';x00: 'Joy 2';x09: 'Key 2';x01: 'Key 3'                   ),
        (Name: 'CrocoDS: default Keyboard'; x08: 'Space';x00: 'Key 1';x09: 'Key 2';x01: 'Key 3'                   ),
        (Name: 'CrocoDS: internal';         x08: 'A';    x00: 'B';    x09: 'X';    x01: 'Y';    x0a: 'L'; x0b: 'R'),
        (Name: 'Gearcoloco';                x08: 'R';    x00: 'L';    x09: '2';    x01: '1';    x0a: '3'; x0b: '4'),
        (Name: 'Gearsystem: SG-1000';       x08: 'R';    x00: 'L'                                                 ),
        (Name: 'Gearsystem: SMS/GameGear';  x08: '2';    x00: '1'                                                 ),
        (Name: 'gpSP';                      x08: 'A';    x00: 'B';    x09: 'TA';   x01: 'TB';   x0a: 'L'; x0b: 'R'),
        (Name: 'MAME2000: Neo Geo';         x08: 'B';    x00: 'A';    x09: 'D';    x01: 'C';                      ),
        (Name: 'Picodrive: MegaDrive';      x08: 'C';    x00: 'B';    x09: 'Y';    x01: 'A';    x0a: 'X'; x0b: 'Z'),
        (Name: 'Picodrive: SG-1000';        x08: 'R';    x00: 'L'                                                 ),
        (Name: 'Picodrive: SMS/GameGear';   x08: '2';    x00: '1'                                                 ),
        (Name: 'PokeMini';                  x08: 'A';    x00: 'B';    x09: 'TA';                          x0b: 'C'),
        (Name: 'Snes9x 2002';               x08: 'A';    x00: 'B';    x09: 'X';    x01: 'Y';    x0a: 'L'; x0b: 'R'),
        (Name: 'Snes9x 2005';               x08: 'A';    x00: 'B';    x09: 'X';    x01: 'Y';    x0a: 'L'; x0b: 'R')
      );
    var
      ComboBoxes: array[0..71] of TComboBox;
      CheckBoxes: array[0..71] of TCheckBox;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    procedure LoadFromStream(Stream: TStream);
    procedure LoadConsoleFromStream(Console: Byte; Stream: TStream);
    procedure LoadFromFile(); overload;
    procedure SaveToFile(); overload;
    procedure LoadFromFile(FileName: string); overload;
    procedure SaveToFile(FileName: string); overload;
    procedure LoadDefaults();
  end;

implementation

uses
  Generics.Collections, GB300Utils, UnitMain;

{$R *.dfm}

{ TFrameKeys }

procedure TFrameKeys.ButtonDefaultsClick(Sender: TObject);
var
  RS: TResourceStream;
begin
  if CurrentDevice = cdGB300 then
  RS := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA)
  else
  RS := TResourceStream.CreateFromID(HInstance, 2, RT_RCDATA);
  try
    RS.Position := (Sender as TButton).Tag * Length(ButtonNames) * SizeOf(Word) * 2;
    LoadConsoleFromStream((Sender as TButton).Tag, RS);
  finally
    RS.Free();
  end;
end;

procedure TFrameKeys.ButtonSaveClick(Sender: TObject);
begin
  SaveToFile();
end;

procedure TFrameKeys.ComboBoxMulticoreSelect(Sender: TObject);
var
  i: Byte;
  ii: Integer;
  cbv: Word;
  Key: string;
begin
  ii := ComboBoxMulticore.ItemIndex;
  if ii > -1 then
  for i := 0 to 11 do
  begin
    cbv := ComboBoxes[MulticoreConsole*12 + i].ObjectIndexInt;
    with MulticoreData[ii] do
    case cbv of
      $08: Key := x08;
      $00: Key := x00;
      $09: Key := x09;
      $01: Key := x01;
      $0a: Key := x0a;
      $0b: Key := x0b;
    end;
    if Key = '' then
    Key := 'invalid';
    (FindComponent(StringReplace(ComboBoxes[MulticoreConsole*12 + i].Name, 'ComboBox' + ConsoleNames[MulticoreConsole], 'EditMC', [])) as TEdit).Text := Key;
  end;
end;

constructor TFrameKeys.Create(AOwner: TComponent);
begin
  inherited;
  LoadPNGTo(1001, ImageFC.Picture);
  if CurrentDevice = cdSF2000 then
  begin
    LoadPNGTo(1006, ImagePCE.Picture);
    Label2.Caption := 'Game Boy / Game Boy Color';
    Label7.Hide();
  end
  else
  LoadPNGTo(1002, ImagePCE.Picture);
  LoadPNGTo(1003, ImageSFC.Picture);
  LoadPNGTo(1004, ImageMD.Picture);
  LoadPNGTo(1013, ImageGB.Picture);
  LoadPNGTo(1007, ImageGBA.Picture);
  LoadPNGTo(1012, ImageMC.Picture);
  LoadPNGTo(1101, Image1A.Picture);
  LoadPNGTo(1102, Image1B.Picture);
  LoadPNGTo(1103, Image1X.Picture);
  LoadPNGTo(1104, Image1Y.Picture);
  LoadPNGTo(1105, Image1L.Picture);
  LoadPNGTo(1106, Image1R.Picture);
  LoadPNGTo(1101, Image2A.Picture);
  LoadPNGTo(1102, Image2B.Picture);
  LoadPNGTo(1103, Image2X.Picture);
  LoadPNGTo(1104, Image2Y.Picture);
  LoadPNGTo(1105, Image2L.Picture);
  LoadPNGTo(1106, Image2R.Picture);
end;

function TFrameKeys.GetFileName: string;
begin
  Result := IncludeTrailingPathDelimiter(Path + 'Resources') + 'KeyMapInfo.kmp';
end;

procedure TFrameKeys.InitData;
var
  Dev: Boolean;
procedure InitConsole(Console: Byte; const KeyNames: array of string; const KeyValues: array of Word);
var
  i, j: Byte;
begin
  for i := Console*12+Low(ButtonNames) to Console*12+High(ButtonNames) do
  begin
    CheckBoxes[i] := FindComponent('CheckBox' + ConsoleNames[Console] + ButtonNames[i mod 12]) as TCheckBox;
    ComboBoxes[i] := FindComponent('ComboBox' + ConsoleNames[Console] + ButtonNames[i mod 12]) as TComboBox;
    CheckBoxes[i].Caption := 'Autofire';
    ComboBoxes[i].Style := csDropDownList;
    with ComboBoxes[i] do
    begin
      if i mod 12 = 0 then
      begin
        Items.BeginUpdate();
        for j := Low(KeyNames) to High(KeyNames) do
        if Dev then
        if KeyNames[j] = 'invalid' then
        Items.AddObject('0x' + IntToHex(KeyValues[j], 2), TObject(KeyValues[j]))
        else
        Items.AddObject(Trim(Copy(KeyNames[j], 1, 2)) + ' | 0x' + IntToHex(KeyValues[j], 2), TObject(KeyValues[j]))
        else
        Items.AddObject(KeyNames[j], TObject(KeyValues[j]));
        Items.EndUpdate();
      end
      else
      Items := ComboBoxes[Console * 12].Items;
      if Console = MulticoreConsole then
      OnSelect := ComboBoxMulticoreSelect;
    end;
  end;
end;
begin
  Dev := ParamStr(1) = '-dev';
  InitConsole(0, KeyNamesFC, KeyValuesFC);
  if CurrentDevice = cdGB300 then
  InitConsole(3, KeyNamesPCE, KeyValuesMD)
  else
  InitConsole(3, KeyNamesGB, KeyValuesGB);
  InitConsole(1, KeyNamesSFC, KeyValuesSFC);
  InitConsole(2, KeyNamesMD, KeyValuesMD);
  InitConsole(5, KeyNamesMAME, KeyValuesMAME);
  InitConsole(4, KeyNamesGBA, KeyValuesGBA);
end;

procedure TFrameKeys.Label7Click(Sender: TObject);
begin
  Form1.OpenURL('https://nummacway.github.io/gb300/#hardware');
end;

procedure TFrameKeys.LoadConsoleFromStream(Console: Byte; Stream: TStream);
var
  i: Byte;
  w: Word;
  w2: Word;
begin
  for i := Console*12 to Console*12+11 do
  begin
    Stream.Read(w, 2);
    Stream.Read(w2, 2);
    ComboBoxes[i].ObjectIndexInt := w;
    if ComboBoxes[i].ItemIndex = -1 then
    begin
      ComboBoxes[i].Items.AddObject('0x' + IntToHex(w, 2), Pointer(w));
      ComboBoxes[i].ObjectIndexInt := w;
    end;
    CheckBoxes[i].Checked := (w2 and 1) = 1; // this how the GB300 does that: odd is autofire, even isn't (tested -1 (which is odd), 0 to 3)
    if Console = 5 then
    ComboBoxMulticoreSelect(nil);
  end;
end;

procedure TFrameKeys.LoadDefaults;
var
  RS: TResourceStream;
begin
  if CurrentDevice = cdGB300 then
  RS := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA)
  else
  RS := TResourceStream.CreateFromID(HInstance, 2, RT_RCDATA);
  try
    LoadFromStream(RS);
  finally
    RS.Free();
  end;
end;

procedure TFrameKeys.LoadFromFile;
begin
  try
    if FileExists(GetFileName()) then
    LoadFromFile(GetFileName());
  except
    LoadDefaults();
    raise;
  end;
end;

procedure TFrameKeys.LoadFromFile(FileName: string);
var
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create();
  try
    MS.LoadFromFile(FileName);
    LoadFromStream(MS);
  finally
    MS.Free();
  end;
end;

procedure TFrameKeys.LoadFromStream(Stream: TStream);
var
  Console: Byte;
begin
  for Console := Low(ConsoleNames) to High(ConsoleNames) do
  LoadConsoleFromStream(Console, Stream);
end;

procedure TFrameKeys.MenuItemDefaultsClick(Sender: TObject);
begin
  LoadDefaults();
end;

procedure TFrameKeys.MenuItemExportClick(Sender: TObject);
begin
  if SaveDialogKMP.Execute() then
  begin
    SaveToFile(SaveDialogKMP.FileName);
  end;
end;

procedure TFrameKeys.MenuItemImportClick(Sender: TObject);
begin
  if OpenDialogKMP.Execute() then
  begin
    LoadFromFile(OpenDialogKMP.FileName);
  end;
end;

procedure TFrameKeys.MenuItemsUndoClick(Sender: TObject);
begin
  LoadFromFile();
end;

procedure TFrameKeys.SaveToFile(FileName: string);
var
  i: Integer;
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create;
  try
    for i := Low(ComboBoxes) to High(ComboBoxes) do
    begin
      MS.WriteData(Word(ComboBoxes[i].ObjectIndexInt));
      MS.WriteData(Word(CheckBoxes[i].Checked));
    end;
    // Copy 7th console (whyever that one exists...)
    {RS := TResourceStream.CreateFromID(HInstance, 1, RT_RCDATA);
    try
      RS.Position := MS.Position;
      MS.CopyFrom(RS, RS.Size - RS.Position);
    finally
      RS.Free();
    end;}
    MS.SaveToFile(FileName);
  finally
    MS.Free();
  end;
end;

procedure TFrameKeys.SaveToFile;
begin
  SaveToFile(GetFileName());
end;

procedure TFrameKeys.TimerLazyLoadTimer(Sender: TObject);
var
  i: Integer;
begin
  TimerLazyLoad.Enabled := False;
  InitData(); // running this after creation of the form takes half as long as calling in the Create() method because Delphi essentially creates the form twice otherwise
  ComboBoxMulticore.Items.BeginUpdate();
  try
    for i := Low(MulticoreData) to High(MulticoreData) do
    ComboBoxMulticore.Items.AddObject(MulticoreData[i].Name, Pointer(i));
  finally
    ComboBoxMulticore.Items.EndUpdate();
  end;
  LoadFromFile();
  Show();
end;

end.