unit cde_MainForm;
{$mode delphi}
{$codepage UTF8}
interface
uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons, ExtCtrls, kernel,
     SimplyJSON, LazUTF8Classes;
type
  { Tcde_Main }
  Tcde_Main = class(TForm)
    MenuPanel: TPanel;
    MenuBtn: TSpeedButton;
    WorkArea: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
  public
  DiscList: TStringListUTF8;
  end;
var
  cde_Main: Tcde_Main;
implementation
{$R *.lfm}
procedure Tcde_Main.FormCreate(Sender: TObject);
var Ind: Byte;
begin
DiscList:= TStringListUTF8.Create;
UpdateDL(DiscList);
if DiscList.Count > 0 then
 for Ind:= 0 to DiscList.Count - 1 do
  CreateDriveRec(DiscList[Ind][1]);
end;
procedure Tcde_Main.FormDestroy(Sender: TObject);
begin
DiscList.Clear;
DiscList.Free;
end;
end.
