Abstract error.

[rauros]

Root:=InstCDPath, que es un string del registro.
Exactamente:
c:\program files\ultima online 2d

No entiendo que es lo que falla, pero ni crea login.cfg ni ejecuta client.exe .

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Root: String;
begin
  With TRegistry.create do begin
    rootkey:=HKEY_Local_machine;
    if OpenKey('SOFTWARE\Origin Worlds Online\ultima online\1.0',false) then begin
      root:=ReadString('InstCDPath');
    end;
  end;
  With TStrings.create do begin
    add(';Login del servidor UoDm www.uodragonesmuertos.es.tl');
    add('LoginServer=dragones-muertos.no-ip.org');
    SaveToFile(root+'\login.cfg');
  end;
  shellapi.ShellExecute(form1.ClientHandle,nil,PChar(root+'\client.exe'),nil,nil,SW_SHOWNORMAL);//Abstract  Error
end;