erro I/0 103 delphi

procedure TDM.DataModuleCreate(Sender: TObject);
const
Raiz : String = 'Software\Microsoft\Systemca';

var inifile : TInifile;
tslista : TStringList;
TArq : TextFile;
slinha, stexto, sHostName,maquinaServ, sPassword, vConnectionString,Alias : string;
Registro : TRegistry;
SdataVencimento:String;

begin
b_versaoDemo := false;
rdias_liberado := 0;
IB_Ativacao.Open;

Alias:= 'C:\MAPACESSO\BASE\MAPACESSO.FDB';

if FileExists('C:\WINDOWS\MAP_ACESSO.INI') = False then
begin
MessageDlg('ATENÇÃO, Primeiro Acesso irá criar os "Arquivos de Configuração". Favor Atenção as Perguntas a seguir !!',mtWarning,[mbOK],0);
SdataVencimento := '10';
SdataVencimento := formatdatetime('dd/mm/yyyy',date+strtoint(SdataVencimento));
IB_Ativacao.Open;
IB_Ativacao.Append;
IB_Ativacao.FieldByName('EQUIPAMENTOS').Value := '1';
IB_Ativacao.FieldByName('VERSAO').Value := 'V.1.5';
IB_Ativacao.FieldByName('DATAINICIO').Value := DateToStr(Now);
IB_Ativacao.FieldByName('DATAFIM').Value := SdataVencimento;
IB_Ativacao.Post;
b_versaoDemo := true;

if Application.MessageBox('Computador é o SERVIDOR do Banco ?','Atenção',36) = MrYes then
begin
sHostName := 'localhost';
end
else
sHostName := InputBox('Atenção','Digite o IP do SERVIDOR do Banco TopData MSSQL. Exemplo "192.168.0.1"','');

CA_0032 := TCA_0032.Create(Self);
CA_0032.ShowModal;
CA_0032.Destroy;

if (Trim(sHostName) <> '') then
begin
AssignFile(TArq,'C:\WINDOWS\MAP_ACESSO.INI');
{$I-}
rewrite(TArq);
{$I+}

if (IOResult = 0)then /////////aqui que da erro
begin
MessageDlg('Erro na Criação do Arquivo .INI, favor Ligar Para a Micromap Informática',mtError,[mbOK],0);
Application.Terminate;
end;