[domenor]

Encontre este ejemplo para usar sqlite con Delphi pero no estoy familiarizado con la sintaxis de sql
sin usar data sources. ¿Como puedo agregar un tercer campo llamado precio? y si no fuese mucho pedir, ¿Alguien podría comentar el código?.
Creo que a todos nos serviría saber un poco más de bases de datos empotradas.

Saludos a todos desde La Serena. Chile

Código Delphi [-]
procedure TMainForm.FormCreate(Sender: TObject);
begin
    db := TSqliteDatabase.Open('mibasedatos.db3');
    rs := TStringList.Create;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
    rs.Free;
    db.Free;
end;

procedure TMainForm.EditEnter(Sender: TObject);
begin
    Status.Font.Color := clWindowText;
    Status.Caption := 'Ingrese nombre ' + TEdit(Sender).Name;
end;

procedure TMainForm.EditExit(Sender: TObject);
begin
    if ActiveControl <> GoButton then
        TEdit(Sender).Text := '';
end;

procedure TMainForm.RealtimeClick(Sender: TObject);
begin
    GoButton.Enabled := not Realtime.Checked;
end;

procedure TMainForm.RealtimeUpdate(Sender: TObject);
begin
    if Realtime.Checked then
        GoButtonClick(Sender);
end;


procedure TMainForm.GridData(Sender: TObject; Item: TListItem);
begin
    with Item do begin
        if Index < rs.Count then begin
            Caption := rs.Names[Index];
            if SubItems.Count = 0 then
                SubItems.Add('');
            SubItems[0] := rs.ValueFromIndex[Index];
        end;
    end;
end;

procedure TMainForm.GoButtonClick(Sender: TObject);
var
    sql,field,filter: string;
begin
    if not (Sender is TEdit) then
        if descripcion.Text <> ''
            then Sender := descripcion
            else Sender := codigo;

    Grid.Clear;
    filter := Trim(TEdit(Sender).Text);
    if filter = '' then begin
        Status.Caption := '';
        Grid.Width := Grid.Width - 1;
        exit;
    end;

    field := TEdit(Sender).Name;
    sql := 'select codigo,descripcion from productos where '
        + db.Like(field, filter, field = 'descripcion');

    if LimitRecords.Checked then
        sql := sql + ' limit ' + IntToStr(Grid.VisibleRowCount);

    rs.Clear;
    with db.Query(sql) do begin
        while not Eof do begin
            rs.Add(FieldAsString(0) + '=' + FieldAsString(1));
            Next;
        end;
        Free;
    end;

    if rs.Count = 0
        then Status.Font.Color := clRed
        else Status.Font.Color := clWindowText;

    if LimitRecords.Checked and (rs.Count = Grid.VisibleRowCount)
        then Status.Caption := 'Mostrando primeros ' + IntToStr(rs.Count) + ' productos'
        else Status.Caption := IntToStr(rs.Count) + ' productos encontrados';

    Grid.Items.Count := rs.Count;
    Grid.Width := Grid.Width - 1;
end;

end.