[epuigdef]

En la línea

Código Delphi [-]
archivosocio:=Tinifile.create('C:\Video Manager\',numerodesocio,'.ini');//Error

debes sustituir las comas por signos mas:

Código Delphi [-]
archivosocio:=Tinifile.create('C:\Video Manager\' + numerodesocio + '.ini');// NO Error

Un saludo

Edu