var
  sql:string;
  db:TSQLiteDatabase;

try
if FileExists('test.db') then DeleteFile('test.db');
//连接数据库，如果数据库文件不存在会自动创建
  db:=TSQLiteDatabase.Create('test.db','dbpassword');//使用密码创建数据库
//db:=TSQLiteDatabase.Create('test.db',Nil);//无密码创建数据库
//创建USER表
  sql:='CREATE TABLE USER(ID integer PRIMARY KEY AUTOINCREMENT NOT NULL,NAME VARCHAR(50),HOMEPAGE VARCHAR(255))';
  db.ExecSQL(sql);
//插入一条测试数据
  sql:='INSERT INTO USER VALUES(NULL,"ekinglong","http://www.blogjava.net/ekinglong")';
  db.ExecSQL(sql);
finally
  db.Free;
end;

var
  sql:string;
  db:TSQLiteDatabase;
  tbl:TSQLiteTable;
  name:string;
  homepage:string;
begin
try
  db:=TSQLiteDatabase.Create('test.db','dbpassword');
  sql:='SELECT * FROM USER LIMIT 1';
  tbl:=db.GetTable(sql);
if tbl.RowCount>0 then
begin
    name:=tbl.FieldAsString(tbl.FieldIndex['NAME']);
    homepage:=tbl.FieldAsString(tbl.FieldIndex['HOMEPAGE']);
    ShowMessage('Name:'+name+#13+'HomePage:'+homepage);
end;
finally
  tbl.Free;
  db.Free;
end;