uses IniFiles; procedure GetOptions(var W, H, L, T: integer); begin with TIniFile.Create('fichier.ini') do try if SectionExists('options') then If ValueExists('options', 'width') then begin W := ReadInteger('options', 'width', 100); H := ReadInteger('options', 'height', 100); L := ReadInteger('options', 'left', 5); T := ReadInteger('options', 'top', 5); end; finally Free; end; end;