type
  TAppInfos = Class(TObject)
  private
    function GetSpecialPath(nFolder: Integer): string;
    function GetApplicationsName: String;
    function GetAnwendungsPath: TFileName;
    function GetEigeneDateien: TFileName;
    function GetAppAnwendungsOrdner: TFileName;
  public
    property ApplicationsName : String Read GetApplicationsName;
    property AnwendungsPath : TFileName Read GetAnwendungsPath;
    property EigeneDateien : TFileName Read GetEigeneDateien;
    property AppAnwendungsOrdner: TFileName Read GetAppAnwendungsOrdner;
  End;

implementation

{ TAppInfos }

function TAppInfos.GetAnwendungsPath: TFileName;
begin
  Result:= IncludeTrailingPathDelimiter(GetSpecialPath(CSIDL_APPDATA));
end;

function TAppInfos.GetAppAnwendungsOrdner: TFileName;
begin
  Result:= AnwendungsPath+ApplicationsName;
end;

function TAppInfos.GetApplicationsName: String;
var
  aPath: TFileName;
begin
  Result:= ChangeFileExt(ExtractFileName(Application.ExeName),'');
end;

usw.

procedure TfrmSPSDAPHauptMenue.FormCreate(Sender: TObject);
var
  aIniDateiPath: TFileName;
  aInitDateiName: TFileName;
  aInfos: TAppInfos;
begin
  // An dieser Stelle sollen einige Ordner erstellt werden im Anwendungs-
  // Verzeichnis.
  OrdnerAnlegenAnwendungsVerzeichnis;
  // Als weiteres wird eine INI-Datei erstellt um das Form wie bei der letzten
  // Speicherung wieder herzustellen.
  aIniDateiPath:= IncludeTrailingPathDelimiter(aInfos.AppAnwendungsOrdner)+
                  IncludeTrailingPathDelimiter(aInfos.ApplicationsName+INIT);
  aInitDateiName:= aIniDateiPath+Caption+'.INI';

  IniLesenAnlegen (self,aInitDateiName);
end;