Загрузка файла *.txt при открытии приложения при двойном клике на самом файле *.txt

procedure TForm1.RegisterFileType(ext: string; FileName: string);
var
  reg: TRegistry;
begin
  reg:=TRegistry.Create;
  with reg do
  begin
    RootKey:=HKEY_CLASSES_ROOT;
    OpenKey('.'+ext,True);
    WriteString('',ext+'file');
    CloseKey;
    CreateKey(ext+'file');
    OpenKey(ext+'file\DefaultIcon',True);
    WriteString('',FileName+',0');
    CloseKey;
    OpenKey(ext+'file\shell\open\command',True);
    WriteString('',FileName+' "%1"');
    CloseKey;
    Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  RegisterFileType('txt', Application.ExeName);
end;

Filename := ParamStr(1);

procedure TForm1.FormCreate(Sender: TObject);
 
var
i: Integer;
begin
for i := 0 to ParamCount do
begin
// Заполняем Listbox
// параметрами командной строки.
ListBox1.Items.Add(ParamStr(i));
end
end;