problem with tinifile.create

Hi experts,

with the following code I want to create a *.ini file.
Hpowever after running this syntactically correct program, I never
can find the created *.ini file on my harddisk. (The explorer of Windows 98 says "file not found").

Can you please tell me, what I am doing wrong here?

With kind regards

Mathes

unit tini;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, IniFiles;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  sl: tstringlist;
function EnumFiles(path: string; findFile: string): string;
function findFileOnAllHarddisks(fileName: string): string;

implementation

{$R *.DFM}

function EnumFiles(path: string; findFile: string): string;
var
  fd1: TWin32FindData;
  c1: cardinal;
  s1: string;
begin
  if fileExists(path + findFile) then begin
    result := path + findFile;
    exit;
  end;
  c1 := FindFirstFile(PChar(path + '*.*'), fd1);
  if c1 <> INVALID_HANDLE_VALUE then
  try
    repeat
      s1 := string(fd1.cFileName);
      if (s1 <> '.') and (s1 <> '..') and (fd1.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY <> 0) then
      begin
        result := EnumFiles(path + s1 + '\', findFile);
        if result <> '' then break;
      end;
    until not FindNextFile(c1, fd1);
  finally Windows.FindClose(c1) end;
end;


function findFileOnAllHarddisks(fileName: string): string;
var
  c1, c2: cardinal;
  ch1: char;
begin
  result := '';
  c2 := GetLogicalDrives;
  for ch1 := 'A' to 'Z' do
    if odd(c2 shr (ord(ch1) - ord('A'))) then begin
      c1 := GetDriveType(PChar(ch1 + ':\'));
      if c1 = DRIVE_FIXED then begin
        result := EnumFiles(ch1 + ':\', fileName);
        if result <> '' then break;
      end;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  myprogIni: TIniFile;
  s: string;
begin
  s := findFileOnAllHarddisks('myprog.exe'); //find location of myprog.exe
  s := extractfilepath(s);
  s := s + 'myprog.ini';                     // in the same directory of myprog.exe...
  myprogIni := TIniFile.Create(s);           // .... create myprog.ini
  myprogIni.Free;
end;

end.