[Adrenalin666]

Код:

1 2 3 4 5 6 7

var   Ini: TIniFile; begin  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Save.ini');  Ini.WriteString('Cana','Pervoe',Edit1.Text);  Ini.free; end;

ну вот сделал по примеру что в ссылке дал v1s2222
сохраняет с этим именем без имени программы и в папке приложения вобщем цель достигнута