Archivos INI Creacion y Edicion

[ecfisa]

Hola martini002.

Si no te interpreté mal pienso que podrías valerte de la función FileExists.

Por ejemplo:

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  arch: string;
begin
  arch:= Getcurrentdir()+'\Cuentas\'+Form1.Edit1.Text+'.ini'
  if FileExists(arch) then   // Existe
  begin
    // Cargar datos de variables
    // etc, etc, ...
  end
  else                       // No existe
    with TIniFile.Create(arch) do
    try
      WriteString( 'Partidos', 'Valor','Form1.Edit2.Text' );
      WriteString( 'Ganados', 'Valor', Form1.Edit3.Text );
      WriteString( 'Perdidos', 'Valor', Form1.Edit4.Text );
    finally
      Free;
    end;
end;

Saludos.