No sé como funcionan exactamente los componentes que estás usando para acceder a SQLite. Pero si son decendientes de TDataset tu código se resolvería así:
Código Delphi
[-]procedure TForm1.BitBtn2Click(Sender: TObject);
var
nItem: TListItem;
slDBpath: string;
sldb: TSQLiteDatabase;
sltb: TSQLIteTable;
sSQL: String;
i : integer;
begin
slDBPath := ExtractFilepath(application.exename)
+ 'bd\dbdatos.db';
sldb := TSQLiteDatabase.Create(slDBPath);
sltb := slDb.GetTable('SELECT * FROM Datos');
try
if sltb.Count > 0 then
while not sltb.eof do begin
nItem := ListView1.Items.Add;
nItem.Caption := sltb.FieldByName['fecha'] ;
nItem.SubItems.Add(sltb.FieldByName['area']);
nItem.SubItems.Add(sltb.FieldByName['tipo']);
nItem.SubItems.Add(sltb.FieldByName['detalle']);
sltb.Next;
end;
finally
sltb.Free;
end;
end;
Saludos!