cambiar registro

[Novás]

Hola, he conseguido el siguiente codigo para asignar una determinada extensión a mi programa... En este caso la extensión .tip

Código Delphi [-]
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CLASSES_ROOT;
  reg.LazyWrite := False;
{ Add Program Support}
  reg.OpenKey('.tip\shell\open\command', true);
{ Invoke the program passing the file name as the first parameter}
  reg.WriteString('', 'D:\PROPIOS\Tony\Tony.exe % ');
{ Add Icon Display}
  reg.CloseKey;
  reg.OpenKey('.tip\DefaultIcon', true);
{ Use the first icon in the executable to display}
  reg.WriteString('', 'D:\PROPIOS\Tony\Tony.exe,0');
  reg.CloseKey;
  reg.free;
end;

Mi pregunta es la siguiente:
Como puedo ahora cargar ese archivo en un TListView