Criação e conexão de banco SQLite3

boa tarde pessoal,
tenho essa procedure no meu projeto q nao está dando certo... gostaria se possível alguém me diga onde tá o erro pq nao consigo acessar minha base de dados... o erro q dá é o seguinte:

Error: unable to open database file


procedure TDMGeral.DataModuleCreate(Sender: TObject);
var
sPath: String;
begin
with VAPConexao do
begin
{$IF DEFINED(IOS) OR DEFINED(ANDROID)}
Params.Values['DriverID'] := 'SQLite';
Params.Values['OpenMode'] := 'ReadWrite';
try
sPath := TPath.Combine(TPath.GetPublicPath, 'vappedidos.s3db');
Params.Values['Database'] := sPath;
Connected := True
except on E: Exception do
begin
ShowMessage(E.Message);
end;
end;
{$ELSE}
try
Params.Values['Database'] := '$(DB_VAPPEDIDOS_SQLITE)';
Connected := True;
except on E: Exception do
begin
ShowMessage(E.Message);
end;
end;
{$ENDIF}
end;

end;


Eloi Filho
Programador
92 99130-5174
efgf@ig.com.br