[delphi.com.ar]

Empezado por fabiof2000

Tsavepicturedialog.execute;
archivo:=tinifile.Create(C:\imag.ini');
archivo.WriteString('Imagenes','img_digin1','Tsavepicturedialog.filename');
archivo.Free;

Seguramente si abres el archivo ini, en la key Imagenes, valor img_digini1 encontrarás el texto "Tsavepicturedialog.filename". Ya que lo estas pasando como si fuera una cadena, y no estas pasando la propiedad del SaveDialog

Código Delphi [-]
if SaveDialog.Execute then
begin
  Archivo := TIniFile.Create('C:\imag.ini');
  try
    Archivo.WriteString('Imagenes','img_digin1', SaveDialog.FileName);
  finally
    Archivo.Free;
  end;

Saludos!