object SQLConnection1: TSQLConnection
    ConnectionName = 'SQLITECONNECTION'
    DriverName = 'Sqlite'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=Sqlite'
      'Database='
      'UserName=SYSDBA'
      'Password=masterkey'
      'TableName=')
    Left = 400
    Top = 80
  end

procedure TForm1.FormShow(Sender: TObject);
var
 DB: TSQLite3Database;
 Stmt: TSQLite3Statement;
 DoCreate :boolean;
 fV :double;
 iV :integer;
 S :string;
// IdRec :integer;
begin
 DB := TSQLite3Database.Create;
 try
  DoCreate := not FileExists(ExtractFilePath(Application.ExeName)+'test_int.db');

  DB.Open('test_int.db');

  if DoCreate then
   begin
    DB.Execute('CREATE TABLE test_int (intField INTEGER)');
    // Fill the table with the value
    Stmt := DB.Prepare('INSERT INTO test_int (intField) VALUES (?)');
    try
     Stmt.BindDouble(1, 11.3);
     Stmt.StepAndReset;
//    IdRec := DB.LastInsertRowID;
    finally
     Stmt.Free;
    end;
   end;

  Stmt := DB.Prepare('SELECT intField FROM test_int');
  try
   if(Stmt.Step = SQLITE_ROW)then
    begin
     iV := Stmt.ColumnCount;         // iV = 1
     fV := Stmt.ColumnDouble(0);     // fV = 11.3
     iV := Stmt.ColumnInt(0);        // iV = 11
     S := Stmt.ColumnText(0);        // S = '11.3'
     Label1.Caption := FloatToStr(fV);
    end;
  finally
   Stmt.Free;
  end;
 finally
  FreeAndNil(DB);
 end;
end;

    Execute('SELECT CAST(intField as FLOAT) FROM test_int', nil, dsData); // DataK

    while not dsData.Eof do
     begin
//      fV := dsData.FieldByName(dsData.FieldDefs[0].Name).AsFloat; // Ошибка 'Cannot access field 'Column0' as Float
      V := dsData.FieldByName(dsData.FieldDefs[0].Name).Value; // так работает
      S := VarToStr(V);
      ListBox1.Items.Add(Format('%s',[S]));

      dsData.Next;
     end;