Code:
procedure TForm1.FormCreate(Sender: TObject);
var
Path:string;
begin
Path:= ExtractFilePath( Application.ExeName);
if not FileExists(Path+'sqlite3.dll') then ShowMessage('Ne postoji sqlite3.dll');
FDPhysSQLiteDriverLink1.VendorLib:= Path+'sqlite3.dll';
if not FileExists(Path+'fddemo.sdb') then ShowMessage('Ne postoji baza fddemo.sdb');
FDConnection1.Params.Database:=Path+'fddemo.sdb';
FDConnection1.Connected:=True;
FDTable1.TableName:='Employees';
FDTable1.Active:=True;
end;