[ferget]

Код:

function TForm1.Ininame: string;
begin
  result := ExtractFilePath(Application.ExeName)+'path.ini';
end;