It did not connect because I tried to save a text files so show me the erro points and they are not created in the DataModule file where I try to connect to MySQL.
The error messsage "File acess denied" shows before to do this...
procedure TdmRDA.DataModuleCreate(Sender: TObject);
var sParam: String;
begin
AssignFile(F1, 'Lixo00.Tmp');
ReWrite(F1);
WriteLn(F1, 'OK');
CloseFile(F1);
if SQLConnection.Connected=False then
SQLConnection.Connected := True;
AssignFile(F1, 'Lixo01.Tmp');
ReWrite(F1);
WriteLn(F1, 'OK');
CloseFile(F1);
if sdsRDAopms.Active=False then
sdsRDAopms.Active := True;
AssignFile(F1, 'Lixo02.Tmp');
ReWrite(F1);
WriteLn(F1, 'OK');
CloseFile(F1);
if sdsRDAproxseq.Active=False then
sdsRDAproxseq.Active := True;
AssignFile(F1, 'Lixo02.Tmp');
ReWrite(F1);
WriteLn(F1, 'OK');
CloseFile(F1);
if sdsRDAauditoria.Active=False then
sdsRDAauditoria.Active := True;
AssignFile(F1, 'Lixo03.Tmp');
ReWrite(F1);
WriteLn(F1, 'OK');
CloseFile(F1);
if sdsRDAtextos.Active=False then
sdsRDAtextos.Active := True;
AssignFile(F1, 'Lixo04.Tmp');
ReWrite(F1);
WriteLn(F1, 'OK');
CloseFile(F1);
if sdsRDAgeral.Active=False then
sdsRDAgeral.Active := True;
AssignFile(F1, 'Lixo05.Tmp');
ReWrite(F1);
WriteLn(F1, 'OK');
CloseFile(F1);
if sdsRDAgeral2.Active=False then
sdsRDAgeral2.Active := True;
AssignFile(F1, 'Lixo06.Tmp');
ReWrite(F1);
WriteLn(F1, 'OK');
CloseFile(F1);
if sdsRDAgeral3.Active=False then
sdsRDAgeral3.Active := True;
AssignFile(F1, 'Lixo07.Tmp');
ReWrite(F1);
WriteLn(F1, 'OK');
CloseFile(F1);
end;