Arquivos ini no delphi

// uses inifiles;

var arqini: tinifile;

procedure TForm1.Button2Click(Sender: TObject); //Gravar ini
var
arqini: tinifile;
vNom: string;
begin
arqini:= tinifile.create('D:\Teste.ini');
vNom:= edit1.text;
try
arqini.writestring('String','Nome',vNom);
arqini.writebool('Boolean','Condicao',True);
arqini.WriteInteger('Integer','Vidas',5);
finally
arqini.free;
end;
end;

procedure TForm1.Button3Click(Sender: TObject); // ler ini
var
texto: string;
numero: integer;
vNom: string;
begin
arqini:= tinifile.create('D:\Teste.ini');
try
texto:= arqini.readstring('String','Nome',vNom);
arqini.readbool('Boolean','Condicao',True);
numero:= arqini.readInteger('Integer','Vidas',5);
finally
arqini.free;
end;
label1.Caption:= texto;
label2.caption:= inttostr(numero);

end;