Leer Edit de otro formulario usando INI

[Dark_Code]

Empezado por malditango

en tu code no veo como accedas al fichero, ni leCadINI ni esEntINI
with tinifile.create (changefileext(paramstr(0),'.INI')) do // aqui crea el archivo pero no se en que ubicacion

La función que uso en la Consola es este:

function leCadINI (clave, cadena : string; defecto : string) : string;
begin
  with TiniFile.Create ('c:\Fichero.ini') do
  try
    result := readString (clave, cadena, defecto);
  finally
    free;
  end;
end;

Y en el form utilizo la siguiente función:

//Lee una cadena de texto de un INI
function leCadINI (clave, cadena : string; defecto : string) : string;
begin
  with TiniFile.Create ('c:\Fichero.ini') do
  try
    result := readString (clave, cadena, defecto);
  finally
    free;
  end;
end;

//Escribe un entero en un INI
procedure esEntINI (clave, cadena : string; valor : integer);
begin
  with TiniFile.Create ('c:\Fichero.ini') do
  try
    writeInteger (clave, cadena, valor);
  finally
    free;
  end;
end;

Espero de su ayuda, Gracias.