uses
System.IOUtils ;
procedure TForm2.connectButtonClick(Sender: TObject);
begin
SQLConnection1.Params.Values['Database'] := TPath.Combine(TPath.GetSharedDocumentsPath, 'test.db');
try
SQLConnection1.Connected := true;
executeButton.Enabled := true;
outputMemo.Text := 'Conexión Establecida !!!!';
except
on E: EDatabaseError do
ShowMessage('Exception raised with message' + E.Message);
end;
end;