Buenas Dias, Tardes, Noches Colin!
‘ã¡ Ÿ­¢ 03 1998, Colin Towers ¯¨á « ª Jon Hunt:
 JH>> [DATA]
 JH>> G:\COMMS\DATA\ADDRESS.DAT
 CT> Procedure TMainForm.FormCreate(Sender : TObject);
  Var INIFile : TextFile;  S : String;
 CT> Begin
 CT>  myfilename:='DEFAULT.DAT';
  AssignFile(INIFile,ExtractFilePath(ParamStr(0)+'Whatever.Ini');
//    Is file store in PROGRAM Directory.
 CT>  {$I-}
 CT>  Reset(IniFile);
 CT>  {$I+}
     If IOResult=0 then begin {Reset went fine}
 CT>   While Not EOF(IniFile) do begin
 CT>    ReadLn(IniFile,S);
     If S='[DATA]' then
 CT> ReadLn(IniFile,myfilename);
 CT>   end;
 CT>   CloseFile(INIFile);
 CT>  end;
 CT> end;
 I think it a BEST solution without problem.
Best Regard,
Paul.
                                                AKA VoLcanO
            volcan0@yahoo.com
                ICQ : 6759608
       [TEAM Sprite TEAM BEATLES TEAM BEER TEAM Šáîå  TEAM]
--- GoldED/386 3.00.Alpha1+
---------------