type
IntArray = array of integer;
 
procedure StrListReIndex(str:TStrings; var index:IntArray);

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Gauges;

unit uShell;
 
interface
 
// Модуль копирования файлов в буфер для проводника
// протестирован

TDBGrid = class(DBGrids.TDBGrid)
public
  HorzScroll: boolean;

unit FileAssociation;
 
// модуль ассоциации файлов
 
interface
 
uses Windows,

unit DropFileClass;
 
// procedure FromDropFiles(Sender: TObject);
 
{

unit md5Hash;
 
// Optimized

// строку в список (explode)
procedure str_explode(const sDelimiter, sSrc :string; resStr: TStrings; lLimit :integer = -1; bWithEmpty :boolean = true);
// разбивает

procedure TForm1.Button1Click(Sender: TObject);
begin
  Unit2.Form2.Show;
  ShowWindow(Unit2.Form2.Handle,SW_SHOWNORMAL);