IniFile

uses inifiles;
 ...
//Crie uma variável do tipo TIniFile
 var
   Arquivo : TIniFile;
 begin
// Vamos instanciar nossa variável. O arquivo INI terá o mesmo nome do EXE.
Arquivo := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));

//Vamos escrever o nosso arquivo INI
try
  Arquivo.WriteString('CONFIG', 'FORM', 'Principal');
  Arquivo.WriteDate('CONFIG', 'CRIACAO', Date);
 
     with Arquivo, frmPrincipal do
     begin
       WriteInteger('FORMULARIO', 'Top', Top) ;
       WriteInteger('FORMULARIO', 'Left', Left) ;
       WriteInteger('FORMULARIO', 'Width', Width) ;
       WriteInteger('FORMULARIO', 'Height', Height) ;
     end;
   finally
     Arquivo.Free;
   end;
end;

//Novamente criaremos uma variável do tipo TIniFile
var
   Arquivo : TIniFile;
   nmForm : string; //Variável que receberá o nome do form
   Data : TDateTime; //Variável que receberá a data
 begin
   If Not FileExists(ChangeFileExt(Application.ExeName,'.ini')) then  
      ShowMessage('O arquivo de configuração não foi localizado ou não existe!')
   else
   begin
     Arquivo := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
     try
     //Se não encontrar o usuário, retornará uma string vazia
     nmForm := Arquivo.ReadString('CONFIG','FORM','') ;
     //Se não encontrar a data, retornará a data atual.
     LData := appINI.ReadDate('CONFIG', 'CRIACAO', Date) ;
 
   with frmPrincipal do
   begin
     Top := Arquivo.ReadInteger('FORMULARIO','Top', Top) ;
     Left := Arquivo.ReadInteger('FORMULARIO','Left', Left);
     Width := Arquivo.ReadInteger('FORMULARIO','Width', Width);
     Height := Arquivo.ReadInteger('FORMULARIO','Height', Height);
   end; 
   finally
     Arquivo.Free;
   end;
 end;
end;